Regrouper et concaténer dans le même champ

Bonjour,
Je cherche à concaténer les valeurs d’un champ dans un même champ en fonction d’un autre champ.
J’ai un code VBA qui permet cela quand les deux champs sont dans la MEME TABLE.
Hélas dans mon travail, j’ai le champ à regrouper dans une table et le champ à concaténer dans une autre table. Le code est appelé depuis une requête.
voici le code :

Function ConcatForQuery(strRegroup As String, fldRegroup As String, _
strConcat As String, strTable As String, _
Optional strSep As String = "/") As String
'** Regroupement de donnée sur le champ fldRegroup
'** et concaténation sur le champ strConcat
Dim db As Database
Dim rst As Recordset
Dim strResult As String
Dim strRst As String

Set db = CurrentDb()
strRst = "Select * From [" & strTable & "] " _
& "Where [" & strRegroup & "] = """ & fldRegroup & """;"

Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
With rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
If strResult = "" Then
strResult = .Fields(strConcat)
Else
strResult = strResult & strSep & .Fields(strConcat)
End If
.MoveNext
Loop
End If
End With
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing
ConcatForQuery = strResult
End Function

Style de requête

SELECT champs à regrouper,
ConcatForQuery("champs à regrouper",[ champs à regrouper],"champ à concaténer","table"," - ") AS Résultat
FROM table
GROUP BY champs à regrouper;

Une solution svp ?
Merci