Erro Ao Carregar Listview

[Rafael Portal]

Gente é o seguinte estou tentando carregar um ListView mas está acontecendo um problema.... aparece a seguinte mensagem de erro:

Run-time error '380':

          Invalid property value

Esete é o código:

   Me.Lvw.ListItems.Clear
        sSql = "Select * from Observacao where CodCliente = " & CodCliente & " and Data = '" & Data & "'"
    AbreBanco (sSql)
        Do While Rs.EOF = False
            Set Lvw = Me.Lvw.ListItems.Add(, , Rs!CodCliente)
            Lvw.Text = Rs!Hora
            Lvw.SubItems(1) = Rs!Obs 'Aqui é aonde gera o erro
            Rs.MoveNext
        Loop
        Rs.Close

Eu gostaria de saber, o que está errado???? Como posso resolver????

Agradecido, Rafael Portal

[Rafael Portal]

Tipo... e acontece uma coisa muito estranha... Se eu inserir mais uma coluna no ListView ele funciona!!!! Mas o problema é que eu quero DUAS colunas e não TRÊS por que se forem 3 colunas, uma vai ficar em BRANCO!!!!! Bom se alguém souber a solução por favor me ajudem....