Visual Basic - AYUDA ACCESS Y ADO :)

Hola Gente! Como les va? Espero que muy bien!
Lo mio es muy tontin pero necesitaria saber como se hace bien...
Necesito conectarme a una base de access y extraer los datos de los campos
de una tabla y guardarlos en variables.
Todo por codigo con ADO.
Alguien me puede dar una mano?
GRACIASSSSSSSSSSSS :))))))))
Marlene

Ojala y te sirva el siguiente codigo

Dim cnn As ADODB.Connection

Private Sub conexion()
Set cnn = New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & <<la ruta de tu base de datos>>
End Sub

Private Sub Obtener_datos()
Consulta = "SELECT * FROM Tabla WHERE Clave = " & TxtClave
Set gRecordset = New Recordset
gRecordset.Open Consulta, cnn, adOpenStatic, adLockReadOnly
End Sub

Private Sub LlenarDatos()
With gRecordset
Variable1= !Campo1
Variable2= !Campo2
...
...
End With
End Sub

Ojala y te sirva el siguiente codigo

Dim cnn As ADODB.Connection

Private Sub conexion()
Set cnn = New ADODB.Connection
gRuta = <<la ruta de tu base de datos>>
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & gRuta
End Sub

Private Sub Obtener_datos()
Consulta = "SELECT * FROM Tabla WHERE Clave = " & TxtClave
Set gRecordset = New Recordset
gRecordset.Open Consulta, cnn, adOpenStatic, adLockReadOnly
End Sub

Private Sub LlenarDatos()
With gRecordset
Variable1= !Campo1
Variable2= !Campo2
...
...
End With
End Sub