Private Sub KundenOpen()
    'Prozedur, welche eine Verbindung zur Datenbank herstellt und ein 
    ' Recordsets öffnet, welches den Inhalt der
    'Tabelle "Kunden" enthält
 
    Dim sSQLKunden As String        'Variable für den SQL der Tabelle Kunden
    Dim sDBFileName As String       'Variable für Pfad zur Datenbankdatei *.mdb
 
    On Error Resume Next
 
    sDBFileName = App.Path & "\Schleifen.mdb"
    sSQLKunden = "SELECT Kunden FROM Kunden ORDER BY Kunden"
 
    Set connKunde = New ADODB.Connection
    Set recKunde = New ADODB.Recordset
 
    ' *** Connection öffnen
    With connKunde
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source").Value = sDBFileName
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Open
    End With
 
    'Überprüfung, ob eine Verbindung besteht
    If connKunde Is Nothing Then MsgBox "Keine Verbindung vorhanden"
 
    ' *** Recordset öffnen
    'Kunden
    With recKunde
        Set .ActiveConnection = connKunde
        .Source = sSQLKunden
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With
 
    'Überprüfung, ob die Recordsets bestehen
    If recKunde Is Nothing Then MsgBox "Kein Recordset vorhanden"
 
    'DataGrind "dgKunden" wird an das Recordset "recKunde" gebunden
    With dgKunden
        Set .DataSource = recKunde
        .DataMember = ""
    End With