Erro ao carregar ListView

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

Este é 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