'Deklarationen
Dim meineVerbindung As ADODB.Connection
Dim MeinRecordset As ADODB.Recordset
Dim meinSqlStatement As String
 
'Verbindung zur Datenbank herstellen
Set meineVerbindung = New ADODB.Connection
With meineVerbindung
    If .State = adStateOpen Then .Close
    .Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000/XP
    .Properties("Data Source") = meinPfad & "meineAccessDB.mdb"
    .CursorLocation = adUseClient
    .Open
End With
 
'SQL-Statement erstellen; 
'das Recordset soll alle benötigten Felder enthalten
meinSqlStatement = "SELECT Feld1, Feld2, Feld3 FROM meineTabelle" 
 
'Recordset erstellen und öffnen
Set meinRecordset = New ADODB.Recordset
With meinRecordset
    If .State = adStateOpen Then .Close
    .ActiveConnection = meineVerbindung
    .LockType = adLockOptimistic
    .Source = meinSqlStatement
    .Open
End With

meineVariable = meinRecordset.Fields("Feld1").Value

meineVariable = meinRecordset.Fields.Item(meinIndex).Value

meinRecordset.Close

Set meinRecordset = Nothing

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)