表或查询记录合并

 以下函数未经测试，请试用。

Private Function SumRec(tbname as string) As String
Dim rs As New adodb.Recordset
Dim ssql As String
Dim i As Long,j As Long
ssql = "select * from " & tbname

rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i=1 To rs.RecordCount
    For i = 0 To rs.Fields.Count - 1
        SumRec = SumRec & rs.Fields(i).Value

    Next

    SumRec = SumRec & ";"

next
rs.Close
End Function