请高手帮助修改列合行函数

按ID号将列数据合并为行数据的函数，能否修改为可以在多个窗体、报表或查询通用的函数。只需引用fn_GetData，输入表名，ID，合并字段等即可运行。

如：fn_GetData(表名，ID，合并字段)

Public Function fn_GetData(strID As String) As String

fn_GetData = ""

Dim rst As New ADODB.Recordset

rst.Open "select * from表名where ID=" & strID & "", CurrentProject.Connection

If Not rst.EOF Then

Do While Not rst.EOF

fn_GetData = fn_GetData & " " & rst!合并字段

rst.MoveNext

Loop

fn_GetData = Right(fn_GetData, Len(fn_GetData) - 1)

End If

End Function