Dim oCon As New ADODB.Connection
 Dim oRecordset As ADODB.Recordset
 
  With oCon
    ' Connection 
    .Provider = "Microsoft.Jet.OLEDB.3.51"
 
    .Open dbFilename  'Pfad/Name der Datenbank
 
    .CursorLocation = adUseClient 'ZugriffCursor
  End With
 
  ' Recordset
  Set oRecordset = New ADODB.Recordset
  oRecordset.Open "SELECT * FROM " & dbTable, _
    oCon, adOpenForwardOnly, adLockReadOnly, 0