Dim db As Database
    Dim tabelle2 As Recordset
    Dim dbFile As String 'Suchvariable As String
 
    dbFile = App.Path & "\daten\datenbanken\DBkunden.mdb"
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set tabelle2 = db.OpenRecordset("Kunden")
 
If tabelle2.RecordCount > 0 And Not tabelle2.BOF Then
 
        tabelle2.MoveFirst
        Do While Not tabelle2.EOF
            With ListView1.ListItems.Add(, , tabelle2("Kundennummer").Value) 
                .SubItems(1) = tabelle2("Vorname")  
                .SubItems(2) = tabelle2("Nachname")      
 
            End With
            tabelle2.MoveNext
        Loop
        tabelle2.Close
    End If
 
    db.Close
    Set tabelle2 = Nothing