Dim i As Integer
Dim itm As ListItem
    With rs
        LV.ListItems.Clear
        If (.EOF And .BOF) Then Exit Sub
       .MoveFirst
        Do While Not .EOF
            Set itm = LV.ListItems.Add(, ,  "")
            For i = 0  To .Fields.Count -  1 
                itm.SubItems(i +  1 ) = .Fields(i).Value & ""
            Next i
            .MoveNext
        Loop
       .MoveFirst
    End With