pessoal eu possuo um listbox que contém checkbox.

quando eu digito um código de pedido ele traz todos os código de produto que está gravado com um determinado produto.

então selecionei alguns checkbox com seus respectivos códigos de produto e gravei no banco os que foram selecionados.

agora estou tentando trazer esses códigos de produto que foram selecionados.
só que não estou conseguindo.

estou fazendo esse código:

Do While rs.EOF = False
            lstcodigopedido.AddItem rs!situacao
            If rs!situacao = 1 Then lstcodigopedido.Selected(lstcodigopedido.NewIndex) = True 'Se o campo Sel for 1, seleciona o item.
            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

com esse código ele traz todos os códigos de produto e traz também mais alguns checkbox escrito na frente deles true.
detalhe: ele traz checkbox a mais que é os que traz true e todos não estão selecionados.

como eu faço para trazer todos apenas os código de produto que eu selecionei e joguei no banco de dados?

obrigado.