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() - VB»

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

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ