Dim sSQL As String
sSQL = "SELECT * FROM Tabelle_Rechnungen WHERE Kundennr IN ("
 
Dim oItem As ListItem
For Each oItem In ListView1.ListItems
  sSQL = sSQL & oItem.Text & ","
Next 
sSQL = Left$(sSQL, Len(sSQL) - 1) & ")"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de