' Datenbank öffnen und Recordset erstellen
...
 
' Daten in ListView anzeigen
Dim oItem As ListItem
 
With ListView1
  ' Spalten erstellen
  With .ColumnHeaders
    .Add , , "Name"
    .Add , , "Vorname"
  End With
 
  ' zusätzliche Eigenschaften
  .FullRowSelect = True
  .View = lvwReport
 
  ' ImageList zurodnen, dass die Abbildungen enthält
  Set .SmallIcons = ImageList1
 
  ' ListView mit Daten füllen
  While Not dy1.EOF 
    Set oItem = .ListItems.Add(, "k" & CStr(dy1!Nr), dy1!Name)
    oItem.SubItems(1) = dy1!Vorname 
    dy1.MoveNext 
  Wend   
End With

dy.FindFirst "nr=" & Mid$(ListView1.SelectedItem.Key, 2)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de