Visual Basic - ALGUIEN que revise este CODIGO no me funciona

Solo quiero que al correr el FORMULARIO la FECHA actual del sismtema se presente en TEXTbOX que utilizo y que cuando el usuario guarde el REGISTRO este puedad almacenarce en la Base de datos que utilizo

AQUI ESTA EL CODIGO saben asi no me funciona no se que ago mal

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

Private Sub CmdSalir_Click()
Me.Hide
End Sub

Private Sub Command1_Click()
Borrar
End Sub

Private Sub Form_Load()
cn.Open "provider =microsoft.jet.oledb.4.0; Data Source=C:\Produ\basepro.mdb;persist security info=false"
' CN.Open es la expecificacion de la coneccion que se hace con la base de datos en este caso microsoft

rs.Open "tcata", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
'Recordset es la variable que agrupa un conjuntos de registros de una TABLA o Mas
rs.Index = "clave01"
End Sub


Private Sub txtDes_GotFocus()

rs.Find "Codigo=" & txtCodi.Text
If Not rs.EOF Then
MsgBox "Este Código ya fue Creado!", , "Debe Introducir Otro Código"
txtCodi.SetFocus
End If

If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Seek Array(Val(txtCodi.Text))
End If
If Not rs.EOF Then
txtDes.Text = rs!descrip
rs!fecha=frmCatalogo

por lo que vi te falta el rs.edit despues de
If Not rs.EOF Then

Creeria que es solo eso.
Suerte.

El problema que tenes es con la fecha, debes poner año,mes, dia, ahi no vas a tener problemas, ademas es mas facil para hacer una busqueda luego por fecha, cualquir duda me decis......