Visual Basic - QUIEN sabe mucho de los TEXTBOX ayuda por fa

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

If Not rs.EOF Then
rs!descrip = txtDes.Text
'frmCatalogo.txtFe = Format(Now, "dd-mm-yyyy")
----AQUI ESTA EL PROBLEMA
la linea anterior dice:

"Asignale al txtFe del formulario FrmCatalogo la fecha del sistema en formato de dia-mes-año"

pero en ningun momento le asignas a un campo de tu recordset (rs) ese valor...

para hacerlo haz lo suiguiente

rs!campofecha = " ' " & trim(frmCatalogo.txtFe.text) & " ' "

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