'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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)