如何在microsoft access query中将多个条目合并为新值？

SELECT Field1, Concatenate(Field2) AS MergedValues
FROM TableName
GROUP BY Field1;

Function Concatenate(ConcatField As Variant) As String
    Dim rs As DAO.Recordset
    Dim strConcat As String
    
    Set rs = CurrentDb.OpenRecordset("SELECT Field2 FROM TableName WHERE Field1 = '" & ConcatField & "'")
    
    Do Until rs.EOF
        strConcat = strConcat & rs("Field2") & ", "
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, Len(strConcat) - 2) ' 去除最后的逗号和空格
    End If
    
    Concatenate = strConcat
End Function