Concaténer une colonne

Concaténer toutes les valeurs texte d'un champ (d'une colonne) d'une table

Public Function WholeColumn(sT As String, sC As String) As String
    '//
    '// Usage: Debug.Print WholeColomn("LaTable","LeChamp")
    '//
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sTmp As String
    sTmp = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select [" & sC & "] FROM [" & sT & "];")
    Do Until rs.EOF
        If Len(sTmp) = 0 Then
            sTmp = rs(sC)
        Else
            sTmp = sTmp & ";" & rs(sC)
        End If
        rs.MoveNext
    Loop
    WholeColumn = sTmp
End Function