Public Sub Meine1Proz()
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
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"
 
RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic
 
Test RS
 
End Sub
 
Public Sub Test(RST As ADODB.Recordset)
 
MsgBox RST.RecordCount
 
End Sub