'1. Connection zur Datenbank aufbauen
Dim oDBCon As ADODB.Connection
Set oDBCon = New ADODB.Connection
 
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = "C:\...\...\...mdb" 'Vollständiger Pfad zur DB
  .Properties("Persist Security Info") = False
  .Open
End With      
 
'2. Recordset öffnen
Dim oRs As ADODB.Recordset
Set oRs = New ADODB.Recordset
 
oRs.Open "Select * from Tabelle", oDBConn, adOpenStatic, adLockOptimistic

Cu

Wolfgang