[Resolvido]Funcionamento da condição Do While

Boa tarde Galera do fórum.

tenho uma TABELA1 que possui vários registro.

como que eu faço uma condição Do While para percorrer todos os campos da tabela?

se não for pedir de mais gostaria que colocassem a condição comentada como funciona cada parte.


Desde já agradeço

Vamos lá:

Código:


'--------------------------
'declaração de variáveis
'--------------------------
Dim i as integer
Dim rs as recordset
'------------------
'acessar a tabela
'------------------
set rs= currentdb.openrecordset ("TABELA1")'currentdb refere-se ao banco de dados atual. A função openrecordset abre a conexão com TABELA1.
i=1'inicia a variável que indicará a posição do registro atual
'------------------------------------------------------------------
'faz o teste para verificar se existem registros na TABELA1.
'------------------------------------------------------------------
DO WHILE NOT rs.EOF 'executa o procedimento abaixo enquanto não for nulo o número de registros na tabela
'------------------------------------------------------------------
' esta caixa de mensagem informa o conteúdo do registro da TABELA1, na primeira coluna. para visualizar o conteúdo das demais colunas trocar para rs(1), rs(2) e assim por diante.
msgbox "O conteúdo do registro & i & " é " & rs(0)
rs.movenext 'vai para o próximo registro
i=i+1
loop 'repete a função
set rs=nothing 'fecha conexão com a TABELA1


Obrigado pela ajuda halmeida