Dim oConn As ADODB.Connection
Dim oADORs As ADODB.Recordset
 
' Connection zur Access-MDB
Set oConn = New ADODB.Connection
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = "Datenbank.mdb"
  .Properties("Persist Security Info") = False
  .Open
End With
 
Set oADORs = New ADODB.Recordset
oADORs.Open "SELECT * FROM Tabelle", oConn, adOpenStatic, adLockOptimistic

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de