'METODO ADO CON ACCESS 2000
'Desmarcada Referencia: Microsoft DAO 3.6 Object Library
'Marcada Referencia: Microsoft ActiveX Data Objects 2.X Library
'Con Tabla en la Base activa

Option Explicit
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
-------------------------------------------------------------------------------------------------------------
Private Sub Grabar_Click()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Application.CurrentProject.Name & ";"
    cnn.Open
    rst.Open "SELECT * FROM NombreTabla", cnn, adOpenDynamic, adLockOptimistic
    rst.MoveFirst    		
    rst!Campo1Tabla = Me.Campo1Form
    rst!Campo2Tabla = Me.Campo2Form
    rst!Campo3Tabla = Me.Campo3Form
    rst!Campo4Tabla = Me.Campo4Form
    rst.Update
rst.Close
Set rst = Nothing
End Sub