ListView() - VB

Формулировка задачи:

Добрый день извиняюсь за глупый вопрос, читать тонну материала не хочется, так как задача разовая и больше не прибегну к VB 6.0. Вот код:

Private Sub Form_Load()
    Call UpdateConnect
End Sub

Sub UpdateConnect()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    sql = " SELECT VL,UPVL FROM SPR "
    rs.Open sql, CN, adOpenForwardOnly, adLockReadOnly
    Set DataGrid1.DataSource = rs
End Sub

Вот в этой строке если поменять на ListView, вывод мне нужен именно в ListView он выдаст ошибку "Method or data member not found"

Set DataGrid1.DataSource = rs

Собственно что посоветуете, как вы поняли в языке я не силен, работаю в другой сфере, так что как можно понятней)

Решение задачи: «ListView()»

textual
                            Листинг программы 
                        

                            rs.movelast
rs.movefirst
for r=1 to rs.recordcount
'''тут заполнение листвиев из примера
rs.movenext
next
                        