[Resolvido]Concatenar todos os registros de uma consulta em uma unica variável VBA

Saudações aos amigos do fórum,
Tenho uma consulta que possui apenas uma coluna como no exemplo abaixo:

JOSE

MARIA

JOAO

Preciso gravar todos os resultados dessa consulta em uma variável string em VBA para utilização posterior, como abaixo:
nomes = "JOSE, MARIA, JOAO"
Qual a melhor maneira de se fazer isso?

Tente algo assim:

Dim DB As Database, RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("NomeDaTabela" dbOpenTable)
RS.MoveFirst
Do While Not RS.EOF

With RS
If IsNull(Me.MomeDoCampoDoForm) Or Me.NomeDoCampoDoForm.Value = "" Then
Me.NomeCampoDoForm = RS("NomeCampoDaTabela")
Else
Me.NomeCampoDoForm = Me.NomeCampoDoForm & "," & RS("NomeCampoDaTabela")
End If
.MoveNext
End With
Loop

Set DB = Nothing
Set RS = Nothing
RS.Close
DB.Close

Olá Criquio, obrigado pela resposta.
outra duvida. obrigatoriamente preciso criar um form?
não posso passar os valores direto da consulta?
obrigado novamente,

Não. Direto da consulta não é possível. Ou você cria um formulário ou cria uma função um módulo e chama essa função na consulta.

Observei agora que se trata de uma consulta. Altere a linha abaixo:

Set RS = DB.OpenRecordset("NomeDaConsulta")

Criquio,
nao funcionou. da erro na linha:
Me.NomeCampoDoForm = Me.NomeCampoDoForm & "," & RS("NomeCampoDaTabela")

e ai também estaria minha duvida. a minha variável seria o mesmo nome do campo do form como indicado?
como eu recupero ela pra usar no meu codigo VBA?
obrigado de novo.

NomeCampoDaTabela é o nome do campo que armazena o dado que você quer na tabela. No lugar de NomeCampoDoForm, coloque o nome da variável. Isso em um formulário.

é pois é. desculpe a pergunta basica....
depois q te escrevi que percebi isso...
criei a variavel e funcionou.
mto obrigado.

abs,

Não esquecer o resolvido

Agradecemos pelo retorno. Precisando, assovie.