Visual dBase - QUIEN sabe mucho de los TEXTBOX ayuda

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

dale esta instruccion pero en el formulario

text1.text = date
y eso hara que la fecha del sistema se quede en el textto donde esta la fecha bueno lo text1.text es un ejemplo redirecionalo a ti textbox apropiado

y cuando lo guardes dale esta orde, no ususe val(text1.text)
si que utiliza datevalue(text1.text)