This is a loose example. I don't know how many fields are in your recordset that you want in your Listview, so modify accordingly, and change the field names appropriately
VB Code:
  1. Dim MyItem As ListItem
  2. Do While Not Rs.EOF
  3.  Set MyItem = ListView1.ListItems.Add(, , RecordSetObject.Fields.Item("fieldname1").Value)
  4.     MyItem.SubItems(1) = RecordSetObject.Fields.Item("fieldname2").Value)
  5.     MyItem.SubItems(2) = RecordSetObject.Fields.Item("fieldname3").Value)
  6.     Rs.MoveNext
  7. Loop