Function actualizar() As String
Dim GesperDB As Database
Dim GPFIC01 As Recordset
Set GesperDB = DBEngine.Workspaces(0).Databases(0)
Set GPFIC01 = GesperDB.OpenRecordset("TU TABLA PRINCIPAL")
' Me leo la tabla y si el ID del formulario es igual al ID de la tabla... actualizo y salgo del Do
' Podria buscar con Find, pero me resulta más facil así
GPFIC01.MoveFirst
Do While Not GPFIC01.EOF
If GPFIC01("CAMPO COMUN") = ME.CAMPOCOMUN DEL FORMULARIO
GPFIC01.Edit
GPFIC01("EL CAMPO QUE QUIERES ACTUALIZAR") = ME.EL CAMPO DEL FORMULARIO
GPFIC01.Update
EXIT DO
End If
GPFIC01.MoveNext
Loop
GPFIC01.Close
End Function