' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub Command1_Click()
 
RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic
 
For N = 0 To RS.Fields.Count - 1
 MsgBox RS.Fields(N)
Next
 
End Sub
 
Private Sub Form_Load()
 Set DB = New ADODB.Connection
 Set RS = New ADODB.Recordset
 
 DB.CursorLocation = adUseClient
 DB.Provider = "Microsoft.Jet.OLEDB.4.0"
 DB.Open "d:\db1.mdb"
End Sub