关于一个合并相同数据的查询

1、下列代码没有测试过，仅提供思路参考。

Function MergeStr(str1 As String) As String

    
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim str As String
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT 姓名,排课 from 原表名称 where  姓名='" & str1 & "'")
rst.MoveFirst
Do While Not rst.EOF
str = str & rst(1) & ","
rst.MoveNext
Loop
MergeStr = Left(str, Len(str) - 1)

End Function

2、建立一个新的查询

SELECT 原表名称.姓名, MergeStr([原表名称]![姓名]) AS 想要达到的效果
FROM 原表名称
GROUP BY 原表名称.姓名, MergeStr([原表名称]![姓名]);