COMO EXECUTAR FUNCAO PARA CADA REGISTRO DE UM DB

USUARIO.EXCLUIDOS 24/03/2005 11:01:52
#74665

Eu tenho um banco de dados, faço uma consulta nele:

No banco de dados tem 2 (duas) colunas: ANO e NOME.

Query = "SELECT * FROM TB_DADOS WHERE 2 AND ANO = '" & ano.Text & "' AND NOME <> ''"

Set RS = Conexao.Execute(Query)

Agora para cada registro encontrado quero que ele execute uma função. Em php eu usaria:

While ($registro = fetch_array($RS)) {


$ano = $registro ["ANO"];
$nome = $registro ["NOME"];

e coloca o ano e o nome em um ListBox, um por linha

}

Agora, como fazer isso no VB 6?

Alguem pode ajudar.

Muito obridado.

Leonardo