Dim WithEvents rec As Recordset
Dim conn As Connection
 
 
Private Sub Form_Load()
Dim Str As String
Str = "select" & _
  "Anrede,Ansprechpartner,Fax,ID,Kennzeichnung,Kundennummer,Kurzbezeichnung,La" & _
  "deskennung,Name1,Name2,Ort_Post,PLZ,Strasse_Post,Telefon,zu_Händen from" & _
  "Adressliste"
Set conn = New ADODB.Connection
 conn.CursorLocation = adUseClient
 conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
           "data source=C:\Eigene Dateien\MY1.mdb;"
 
 Set rec = New ADODB.Recordset
 rec.Open Str, conn, adOpenStatic, adLockOptimistic
 
 With DataGrid1
   Set .DataSource = rec
 End With
End Sub