While caixa de selecção

Boa tarde,

Tenho um forme de importação de dados do excel que processa os dados um a um.
Ao analisar os dados preciso completar ou alterar alguns e para isso abria um form em dialog alterava o que tinha a alterar e o processo continuava.

Alterei o form e tenho tudo no mesmo form e agora preciso de uma coisa que não sei se dá ou como se faz.

Em mais detalhe preciso de uma coisa semelhante a isto:

sql = "select........

while sql.RecordCount = 0

me.lista.visible = True

' agora tenho de selecionar algum da lista

sql = "select........

Wend

Seria mais ou menos isto.

Claro que pode ser de outra maneira qualquer, só não sei qual.

O que preciso é.

stop sub

ver lista e selecionar

restart sub

É possível??
Obrigado
Nuno