Dim RS As Recordset
    Dim LI As ListItem
 
 
    Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\Kunden.mdb")
    Set RS = DB.OpenRecordset("Select * from platz", dbOpenDynaset)
 
 
    'Listview füllen
 
    ListView1.SmallIcons = ImageList1
 
    With ListView1
        .ListItems.Clear
 
 
        Do While Not RS.EOF
 
 
            Set LI = .ListItems.Add(, "N" & CStr(RS!Nr), GetFld(RS.Fields( _
              "name")), , 3)
 
            If Not IsNull(RS!Loch18) Then
            LI.SubItems(1) = GetFld(RS!Name)           ...

Dim RS As Recordset
 
Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\Kunden.mdb")
Set RS = DB.OpenRecordset("Select * from Kunde", dbOpenDynaset)
Dim s$
 
If Not RS.EOF Then
 
s = Platzverwaltung.ListView1.SelectedItem.Key
RS.FindFirst "nr=" & Right$(s, Len(s) - 1)