字段合并

源代码网整理以下 对一个表按字段a分组求和后，能否对一个字段b(文本）的内容合并在一起。
如表table
字段a  字段b
12     abc
15     bcd
12     efg
16     cds
....
分组求和后
字段a  字段b
12     abcefg
15     bcd
16     cds
---------------------------------------------------------------

（不好意思一直没空）借一个网友“Trynew”仿DSum() 函数作了一个DLink() 函数，因为用了DAO,所以使用时要添加引用。
那位可以把它改为使用ADO：
Public Function DLink(Expr As String, Domain As String, Optional Criteria As String, Optional Split As String)
    Dim rst As DAO.Recordset
    Set rst = CurrentDb().OpenRecordset("Select * from " & Domain & IIf(Criteria = "", "", " Where " & Criteria))
    DLink = rst(Expr)
    rst.MoveNext
    Do While Not rst.EOF
        DLink = DLink & Split & rst(Expr)
        rst.MoveNext
    Loop
End Function