'必须重新打开一个记录集
dim db as dao.database
dim rec as dao.recordset
set db =opendatabase(".\..\xx.mdb")
set rec=db.openrecordset("select 中国,美国,日本,A,B,C from yourtable union select Null,Null,Null,sum(A) ,sum(B), sum(C) from yourtable")
dim db as dao.database
dim rec as dao.recordset
set db =opendatabase(".\..\xx.mdb")
set rec=db.openrecordset("select A,B,C from yourtable union select sum(A) ,sum(B), sum(C) from yourtable")
dim rstList as ADODB.Recordset
Set rstList = New ADODB.Recordset
rstList.Open "select sum(A),sum(b),sum(c)", AdodbConnection, adOpenKeyset, adLockOptimistic