[求助]怎样对多条记录中相同字段的内容汇总

wwwwa

模块：

Function hbb(rr As String) As String
Set ff = CurrentDb.OpenRecordset("select * from a1051 where 类型=""" & rr & """")
Do While Not ff.EOF
hbb = hbb + (ff("内容"))
ff.MoveNext
Loop
End Function


sql:

SELECT [类型], (hbb([类型]))
FROM a1051
GROUP BY [类型];