TRAZER REGISTROS SELECIONADOS DO BANCO P/ LISTBOX

USUARIO.EXCLUIDOS 04/03/2005 16:19:41
#71163

e aí galera, alguém pode me ajudar?

jáfiz de tudo e nada.

agora faço assim:

For i = 0 To lstcodigopedido.ListCount - 1
If rs!situacao Then 'se o campo_situacao = True
lstcodigopedido.Selected(i) = True
Else
lstcodigopedido.Selected(i) = False
End If
Next
Do While rs.EOF = False
'lstcodigopedido.AddItem rs!situacao
lstcodigopedido.AddItem rs!codigo_produto
lstdesc.AddItem rs!descontoi
lstqtdepedido.AddItem rs!qtdei
lstpreco.AddItem rs!VALOR
lstvlrbruto.AddItem rs!valor_bruto_i
lstvlrdesctotal.AddItem rs!valor_desconto_total_i
lstvlrliq.AddItem rs!valor_liquido_i
rs.MoveNext
Loop
e mesmo assim continua trazendo listbox disticado (não selecionada), sendo no banco está selecionado o checkbox do campo situacao.

me ajudem, por favor.

valeu