exibir dados de tabela no VB

[Guest --Angel --]

Olá,

Gostaria de exibir em um campo Text, todos os produtos e descriçoes existentes em um banco de dados access

Estava tentando das seguintes maneiras:

dim conectando, selecao, exibicao

set conectando = createobject ("ADODB.connection")

conectando.open "dbq= caminho do arquivo;driver={microsoft access driver (*.mdb)}"

selecao = "select * from produtos"

execucao = conectando.execute(selecao)

while not execucao.eof

Text1.text = Execucao("codigo")

execucao.movenext

wend

selecao = nothing

conectando.close

set conectando = nothing

Só que no campo texto aparece apenas o ultimo registro do banco, se alguém souber o q estou fazendo de errado...

agradeço pela ajuda

[kuroi]

lógico q aparece só o ultimo. presta atencao aqui:

while not execucao.eof
Text1.text = Execucao("codigo")
execucao.movenext
wend[/code]

você vai por todos os codigos no textbox, um por vez.
mas cada vez q você puser um codigo ele vai ficar no lugar do outro. quando acabar vai sobrar só o ultimo.

você pode fazer assim ó:
[code]while not execucao.eof
Text1.text = Text1.text & Execucao("codigo") & ","
execucao.movenext
wend

ai nesse caso ele vai por todos os codigos separados por virgula.