[Resolvido]Concatenar valores únicos em diferentes linhas e diferentes colunas com um identificador

Boa tarde,

gostaria de concatenar valores únicos em diferentes linhas e diferentes colunas conforme exemplo abaixo:

COL A ------- COL B --------- COL C
1111 -------- 1@com.br ------- x@com.br
2222 ------- 3@com.br ------- x@com.br
1111 -------- 1@com.br ------- z@com.br
1111 -------- 2@com.br ------- x@com.br
2222 ------- 3@com.br ------- x@com.br


RESULTADO
1111 1@com.br,2@com.br,x@com.br,z@com.br
2222 3@com.br,x@com.br

Já tentei cruzar consultas e tentei também em VBA, infelizmente meu conhecimento não foi suficiente para resolver.
Favor me ajudem.

Olá!
Tente usar assim no evento Form_Currente

Private Sub Form_Current()

Me.txtConcatenado = Me.[COlA] & ", " & Me.[COlB] & ", " & Me.[COlC]

End Sub

Observe duas coisas:
Eu coloquei entre virgula cada campo, se não quiser terá que remover;
txtConcatenado é o nome do local que irá apresentar a união dos dados que vc. quer.
Espero que seja isto que precisa.
João Alves.

Obrigado pela ajuda amigo...

mas consegui aqui com muito custo mensurar o "recordset" e vou colar abaixo meu código....

Function concatenaemails(ndg As String) As String
Dim DB As Database
Set DB = CurrentDb()
Dim rst As DAO.Recordset
Dim fld As Field
Dim Tamanho As Long

Set rst = DB.OpenRecordset("select [AG-CSO-UF].[EMAIL AGÊNCIA]" & _
" FROM (DEMANDAS_CIVEIS INNER JOIN OPERACOES ON DEMANDAS_CIVEIS.ndg = OPERACOES.ndg) INNER JOIN [AG-CSO-UF] ON OPERACOES.cod_agencia = [AG-CSO-UF].AGÊNCIA" & _
" WHERE ((DEMANDAS_CIVEIS.ndg) = '" & ndg & "')" & _
" GROUP BY [AG-CSO-UF].[EMAIL AGÊNCIA];")

While Not rst.EOF

concatenaemails = concatenaemails + rst("email agência")
rst.MoveNext 'Move-se para o próximo registro do recordset
concatenaemails = concatenaemails + " , "
Wend

Set rst = DB.OpenRecordset("select [AG-CSO-UF].[EMAIL CSO]" & _
" FROM (DEMANDAS_CIVEIS INNER JOIN OPERACOES ON DEMANDAS_CIVEIS.ndg = OPERACOES.ndg) INNER JOIN [AG-CSO-UF] ON OPERACOES.cod_agencia = [AG-CSO-UF].AGÊNCIA" & _
" WHERE ((DEMANDAS_CIVEIS.ndg) = '" & ndg & "')" & _
" GROUP BY [AG-CSO-UF].[EMAIL CSO];")
While Not rst.EOF

concatenaemails = concatenaemails + rst("email cso")
rst.MoveNext 'Move-se para o próximo registro do recordset
concatenaemails = concatenaemails + " , "
Wend

Tamanho = Len(concatenaemails)
concatenaemails = Left(concatenaemails, (Tamanho - 3))

End Function

Muito obrigado a todos