DIm oItem As ListItem
 
With oRecordset
  Do Until .Eof
    Set oItem = ListView1.ListItems.Add(, , .Fields("Feld1").Value)
    oItem.SubItems(1) = .Fields("Feld2").Value
    oItem.SubItems(2) = .Fields("Feld3").Value
    ' usw.
    .MoveNext
  Loop
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de