Para sair de um loop for eu sei:

 

for i% = 1 to tabela.recordcount

          .............

          .............

          exit for

          .............

next i%

 

Agora, como faço para sair dum loop while ??

 

while not tabela.bof

         .............

         .............

         comando ????

         .............

wend

 

 

 

Crie um variavel Global assim:

Dim Sair as Boolean

 

e no loop coloquei assim

Sair = False

Utilize o Do While para poder sair com Exit Do.

'Uma boa pedida tb e somente testar se o recordset esta vazio antes de seguir com 'o procedimento.

If rs.eof = false then

      do while not rs.eof

            rotina..........

      loop

end if