Amigos alguém sabe qual a instrução que devo fazer para um select em uma caixa de listagem ? Exemplo: Tenho uma caixa de listagem com 50 registros. Dai o usuário seleciona 10 desses registros, que poderão ser ou não em ordem de sequência. Daí preciso executar um select em uma tabela para, por exemplo, dar um bônus de 10% na próxima compra dos clientes referentes aos 10 registros selecionados nesta caixa de listagem.
Se alguém puder ajudar, agradeço.

Consigo selecionar os registros na caixa de listagem. Agora o que não estou conseguindo é identificar estes registros para o select. Não sei se a caixa de listagem possui alguma propriedade que possa utilizar no WHERE do select.

                  Tecla, deu certo, fiz apenas algumas modificações, conforme abaixo, e funcionou. Obrigado. Vou encerrar o tópio e pontuar você.                  

                   Dim I as Integer
                   Dim Selecionado as Integer

                   For I = 0 To Lista1.ListCount - 1
                        If ListaI1.Selected(I) = True Then
                            Selecionado = Lista1.Column(1, I)
                            ....
                            ([Ô]Select Campo FROM Tabela WHERE Campo=[Ô] & Selecionado & [Ô][Ô])
                           ....
                        End If
                    Next I