Fazer consulta em uma LISTVIEW

Pessoal, por favor, gostaria de uma ajuda.

Eu estou começando a programar agora e então não sei muitas coisas ainda. rs

Estou tentando trazer alguns dados em uma Listview, mas não consigo de jeito nenhum. Alguem teria como me ajudar???

Eu vou colocar o meu código aqui para que pelo menos possam me falar se estou no caminho certo. Obrigada desde já ok?

Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open "Provider=MSDAORA.1;Password=gemco;User ID=gemco;Data Source=gemco;Persist Security Info=True"
    sql = ""

        sql = "select a.codfil, b.fantasia, c.coditprod, c.digitprod, c.descresumida, a.transito, a.fisico, a.resfis, a.futuro"
        sql = sql & "from cad_prodloc a, cad_filial b, cad_itprod c"
        sql = sql & "where a.transito < 0 and"
        sql = sql & "a.codfil = b.codfil and"
        sql = sql & "a.tpdepos = 'L'      and"
        sql = sql & "b.flfranqueado = 'N' and"
        sql = sql & "b.codfil <= 499      and"
        sql = sql & "a.coditprod = c.coditprod"
        sql = sql & "and c.coditprod||c.digitprod = " & PRODUTO & " and c.fantasia = '" & Combo1.Text & "' and a.tpnota in (SELECT TPNOTA FROM CAD_TPNOTA WHERE TIPO = 'E' AND TPREM = 'L')"
        sql = sql & "and a.codfil = a.codfil>= '" & Text1.Text & "'"
        rs.Open sql, cn, adOpenDynamic, adLockOptimistic
        If rs.EOF = False Then
            Do
                Set lst = lv.ListItems.Add(, , rs(0))
                lst.SubItems(1) = rs(1)
                lst.SubItems(2) = rs(2)
                lst.SubItems(3) = rs(3)
                lst.SubItems(4) = rs(4)
                lst.SubItems(5) = rs(5)
                lst.SubItems(6) = rs(6)
                lst.SubItems(7) = rs(7)
                lst.SubItems(8) = rs(8)
                rs.MoveNext
                Text1.SetFocus
            Loop Until rs.EOF = True
            Call LimpaTela
            Else
                MsgBox "Dados não encontrados", vbInformation, "Aviso"
                Call LimpaTela
            End If

End Function