方法一、
strSQL="select sum(某字段) from 某表"
通过查询直接取得，赋值给text1

方法二、
strSQL="select 某字段 from 某表"
查询后累加：
合计=0
do while not rs.eof
    合计=合计+rs.fields(0).value
loop
赋值给text1