' Database-Objekt
Public oConn As ADODB.Connection
Public oRs As ADODB.Recordset

' Connection öffnen
Set oConn = New ADODB.Connection
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = sDatabasePath
  .Properties("Persist Security Info") = False
  .Open
End With

' Recordset erstellen
Set oRs = New ADODB.Recordset
With oRs
  .CursorLocation = adUseClient
  .Open "SELECT * FROM Tabelle", oConn, adOpenStatic, adLockOptimistic
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de