Visual Basic para Aplicaciones - QUIEN domina bien los TEXTBOX tengo problema

tengo un formulario que cargo unos tres textboxes en ellos hay uno que pertenece a la fecha . quiero que ese TEXTBOX suba la fecha del sistema automaticamente se carge el formulario y tambien quiero que se guarde en la base de datos ACCESS 2000 que tengo, cuando el usuario pulse el boton de guardar como hago eso

tengo el codgo aqui
pero este no mefunciona

pueden chequiarlo

If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Seek Array(Val(txtCodi.Text))
End If

'Se hace una busqueda del registro
rs.Find "Codigo=" & txtCodi.Text
If Not rs.EOF Then
MsgBox "No se Permite Guardar un Código Creado !", , "Debe Introducir Otro Código"
'txtCodi.SetFocus

If Not rs.EOF Then
rs!descrip = txtDes.Text
'frmCatalogo.txtFe = Format(Now, "dd-mm-yyyy")
rs.Update
Else
rs.AddNew
rs!codigo = Val(txtCodi.Text)
rs!descrip = txtDes.Text
' frmCatalogo.txtFe = Format(Now, "dd-mm-yyyy")
rs.Update
End If
End If
Borrar
End Sub

Asi no funciona que hago mal

Rod Gracias

tu problema radica en asignar la funcion now, recuerda que esa funcion contiene la fecha y la hora, si declaraste tu table como tipo de datos date revisa el formato, utiliza la funcion date para asignar solo la fecha.

prueba lo siguiente:
rs.el nombre de tu campo fecha = date