Com Juntar Os Dados ?

[Guest oliveira]

    While Not MyRs1.EOF

    JUNTAR = MyRs1!nome & "$" & vbCrLf

    MyRs1.MoveNext

    Wend

   

    'Aqui é os dados juntados

    Text2.Text = JUNTAR

Só aparece o primeiro resultado.

[Decio]

Não sei se é este o seu problema, mas a partir da hora que você preenche a váriavel JUNTAR dentro do loop, ela apaga o antigo conteudo e preenche com o novo. Tem que ser algo assim: JUNTAR=JUNTAR & MaisAlgumaCoisa