Option Explicit
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset

' Connection öffnen
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

Dim sTable As String
sTable = "Kunden"

' Recordset erstellen
Dim oADO As New ADODB.Recordset
With oADO
  .CursorLocation = adUseClient
  .Open "SELECT * FROM " & sTable, oConn, adOpenStatic, adLockOptimistic
End With
 
' DataGrid an Recordset binden
Set DataGrid1.DataSource = oADO

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de