Dim cn As New ADODB.Connection *Connessione
Dim rs As New ADODB.Recordset *recordset
Dim stringaSQL as string

'Apre il Data Base
With Cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mioDB.mdb"
.Open
End With

'Apre il recordset
stringaSQL = "SELECT * from [NomeTabella]" * qui fai le tue query SQL
rs.Open strq, cn, adOpenStatic, adLockOptimistic

In questo modo puoi gestire tutti i campi della tabella:
variabile=rs("Campo1")