Erro ao carregar o ListView

[Rafael Portal 0]

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 0]

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....

[cassitos 2]

hm...não faltou utilizar uma propriedade do Subitems?esta propriedade possui outras como:Text, Index, Key e mais algumas.

[Carlos Alberto 0]

:mellow: Eu faço de forma (uso VB6 e ADO): Eu faço dessa forma (uso VB6 e ADO): VSQL = "SELECT ITENSALUGUEL.NPED, ITENSALUGUEL.PRODUTO, ITENSALUGUEL.CODIGO, ITENSALUGUEL.SUBCOD, ITENSALUGUEL.DESCRICAO, ITENSALUGUEL.PRECO, ITENSALUGUEL.CPRECO " VSQL = VSQL & " FROM ITENSALUGUEL" VSQL = VSQL & " WHERE NPED = " & RSALUGUEL("NPED") Dim RSITENSALUGUEL As New ADODB.Recordset RSITENSALUGUEL.Open VSQL, cn Do Until RSITENSALUGUEL.EOF If Not IsNull(RSITENSALUGUEL("CODIGO")) And RSITENSALUGUEL("SUBCOD") Then Set ITMX = LVITENS.ListItems.Add(, , RSITENSALUGUEL("CODIGO")) End If If Not IsNull(RSITENSALUGUEL("SUBCOD")) Then ITMX.SubItems(1) = RSITENSALUGUEL("SUBCOD") Else ITMX.SubItems(1) = "" End Ifo primeiro if depois do Until com o add não numera o subitens, começa a numeraro segundo if conforme está acima, depois do ITMX.Vê se ajuda. até mais. Aqui tem um loop