ListView - VBWEB

Pessoal estava usando o ListView em uma pesquisa, estava funcionando, qdo utilizava a pesquisa, estava tudo certo, aí precisei, fazer em um form o carregamento desse ListView sem a pesquisa, estou fazendo, só q ele não está aparecendo os dados, aparece apenas o campo registro em uma única linha no listview e não aparece o nome nas colunas, abaixo está o código q coloquei, alguém tem algum sugestão ou opnião.

Dim rs As New ADODB.Recordset
Dim SQL As String

    ConectarBd 'isso minha conexão ao banco de dados
    ListView1.ListItems.Clear 'Limpa todo o ListView1

    SQL = "Select Registro, Nome, Data_Nasc, RG, CPF, Ender, Cep, Bair, Cid, UF, Email, Tel_Res, Tel_Cel, NmeRef from Clientes"

    rs.Open SQL, Cnn, adOpenForwardOnly

    If Not rs.BOF And Not rs.EOF Then

        While Not rs.EOF
            Dim lvi As ListItem
            Dim chave As String

            chave = "Key" & rs("Registro") 'definindo minha chave

Set lvi = ListView1.ListItems.Add(, chave, rs("Registro"))

            lvi.SubItems(1) = rs("Registro") 'aqui são os campos da tabela Clientes
            lvi.SubItems(2) = rs("Nome")
            lvi.SubItems(3) = rs("Data_Nasc")
            lvi.SubItems(4) = rs("RG")
            lvi.SubItems(5) = rs("CPF")
            lvi.SubItems(6) = rs("Ender")
            lvi.SubItems(7) = rs("Cep")
            lvi.SubItems(8) = rs("Bair")
            lvi.SubItems(9) = rs("Cid")
            lvi.SubItems(10) = rs("UF")
            lvi.SubItems(11) = rs("Email")
            lvi.SubItems(12) = rs("Tel_Res")
            lvi.SubItems(13) = rs("Tel_Cel")
            lvi.SubItems(14) = rs("NmeRef")
            'lvi.SubItems(15) = rs("Tel_Ref")

            lvi.Tag = rs("Registro")

            rs.MoveNext
        Wend
    Else

        MsgBox "Nenhum registro encontrado.", vbInformation, "Exemplo"
    End If

    rs.Close
    Set rs = Nothing

Alguém sabe q estou errando???

obrigado