eu costumo criar uma sub rotina para carregar a list, tipo assim
Private Sub MostraDados
listview.listitem.clear
dim Lst as listitem
do while not rstabela.eof
set lst = listview.listitem.add
with lst
.text = rstabela(0)
.subitens(1) =rstabela(1)
rstabela.movenext
loop
end sub
'para filtrar os dados
rstabela.filter="nome='" & combo & "'"
call mostradados