consulta mal sucedida

[luiz47 0]

ola pessoal sou iniciante em vb e estou com uma dificultade, pois preciso realizar uma pesquisa com o numero de conta e mostrar o todos os resultados com o nome do cliente, mas só consigo o primeira consulta não consigo prosseguir o restante da pesquisa. Veja codigo, caso alguem tenha alguma outra ideia ela sera bem vinda.

 

abrir_banco ' abre o bnc de dados

Contatos1.MoveFirst ' move a tabela


Do Until EOF = TRUE  ' realiza a comparação até que seja verdadera
Contatos1.Seek "=", "1001"  "  'faz a comparação quando o ponteiro parar
Print Contatos1("USUARIO_NOME")   ' imprime  o nome de usuario
Contatos1.MoveNext

Loop

fecha_banco

espero que vcs possam me ajudar e mostrar me os meus erros, obrigado, luiz

[Erich VB 0]

Tente usar FindNext em fez de MoveFirst

[luiz47 0]

ja tentei usar o findnext mas nao acertar na sua forma de pesguisar, mostra ai uma forma de pesquisa,

[Claudio Neto 3]

Tente fazer:

 

do until contatos1.eof

ao invés de

Do Until EOF = TRUE

E para que a linha:

Contatos1.Seek "=", "1001" " 'faz a comparação quando o ponteiro parar

Acredito que você não precise dela.