求助

1、建立自定义函数：

Function fldSum(ID as string) as string
Dim rs As New adodb.Recordset
Dim ssql As String
Dim i As Long,j As Long
ssql = "select * from 表1 where 款号='" & ID & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i=1 To rs.RecordCount
   For j = 0 To rs.Fields.Count - 1
        fldSum= fldSum & rs.Fields(j).Value & " "
   Next
   rs.movenext
next
rs.Close
end function

2、调用自定义函数：
SELECT [款号],fldsum([款号]) as 汇总
FROM 表1
GROUP BY [款号];