METODO ADO CON ACCESS 97
'Desmarcar Referencia: Microsoft DAO 3.51 Object Library
'Marcar Referencia: Microsoft ActiveX Data Objects 2.5 Library

Option Explicit
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
----------------------------------------------------------------------------------------------
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Application.CurrentDb.Name & ";"
    cnn.Open
    rst.Open "SELECT * FROM NombreTabla", cnn, adOpenDynamic, adLockOptimistic
    Texto1 = rst!Campo1
    Texto2 = rst!Campo2
    Texto3 = rst!Campo3
    Texto4 = rst!Campo4
rst.Close
Set rst = Nothing
End Sub