Mensajes

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If keyascii = 18 & 9 Then
MsgBox "No =("
End If
End Sub

MODULO:
Public function dbsistema() as database
set dbsistema=opendatabase("aqui pon la ruta y el nombre del sistema .mdb")
End function

en formulario:
dim rs as recordset

private sub form_load()
set rs=dbsistema.openrecordset("aqui pon la tabla",dbopendynaset)
End sub

y bueno para leer los registros as esto.
sub LEER()
text1.text=rs!campo1
text2.text=rs!campo2
text3.text=rs!campo4
   y asi susesivamente....
End sub

para grabar as esto:
sub grabar()
rs!campo1=text1.text
rs!campo2=text2.text
y asi continuas con lo demas
End Sub
por el momento te mando esto .....