如果你已经加载到ADODC记录集里面了 可以这样统计
Dim sSum as long
While ADODC.RECORDSET.EOF=FALSE
sSum=sSum + ADODC.RECORDSET(字段号)
ADODC.RECORDSET.MOVENEXT
Wend
text1.text=sSum
另外可以在RECORDSOURCE里面设置SQL语句为 Select Sum(字段名),?,? from 表
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024