Erro ao carregaro o ListView

[Rafael Portal 0]

Olá gente é o seguinte estou tentando carregar um ListView mas desta ves aconteceu um erro que eu não conhecia gostaria que vces me ajudassem a resolve-lo:

Public Sub CarregaLvw()    Dim Lvw As ListItem    Dim CodCliente As Integer    Dim Data As String        Data = Format(Date, "dd/mm/yyyy")        sSql = "Select C.Nome, L.Lembrete from Cliente C, Lembrete L Where Data = #" & Data & "#"    AbreBanco (sSql)    Do While Rs.EOF = False 'Aqui gera o Erro        Set Lvw = Me.Lvw.ListItems.Add(, , Rs!CodCliente)        Lvw.Text = Rs!Nome        Lvw.SubItems(1) = Rs!Lembrete        Rs.MoveNext    Loop    Rs.CloseEnd Sub

Este é o Erro:

Run-time error '3704':Operation is not allowed when the object is closed.

Alguém sabe como resolver??????Desde já agradecido..Rafael Portal

[cassitos 2]

AbreBanco (sSql)

nesta função, por algum motivo o recordset RS não foi iniciado (aberto).

 

como é esta função?

 

de qualquer forma, p/ evitar este runtime:

 

if rs.state = 1 then

Do While Rs.EOF = False 'Aqui gera o Erro

...

endif

o state retorna se o recordset está aberto (1) ou fechado(0).

 

inté

[Rafael Portal 0]

Fala Cassitos... só que tem uma coisa... O meu ListView não vai carregar!!!!!!!!!!