真心请教大侠：ADO中有无对数值型字段求和的函数，如果无，最简单的方法？

Question

工作环境：在VB6.0中，以数据环境设计器为数据源，用MSHFlexGrid控件显示数　　　　　　据（显示记录明细及合计信息）
　目标：想在MSHFLEXGRID控件最后一行追加反映合计信息的行，显示数值型字段　　　（“SALARY”）之和（SUM），但未找到求和的函数，只能自己写一段代码（见　　下）,虽然解决了问题，但自觉非简易之法，特真心向大侠高手请教：
　　
　　　ADO中有无对数据型字段求和的函数？如果，用法为何？如果无，ADO中对数据　　　型字段求和最简单的方法是什么？
    谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!附:自己写的对数值型字段求和的代码：　MSHFlexGrid1.AddItem "工资合计 "
　MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1 
　MSHFlexGrid1.Col = 2　Dim SUM As Double
　DataEnvironment1.rsPERSON.MoveFirst　SUM = 0
  While Not DataEnvironment1.rsPERSON.EOF
　  SUM = SUM + DataEnvironment1.rsPERSON!SALARY
  　DataEnvironment1.rsPERSON.MoveNext
　Wend　MSHFlexGrid1.Text = SUM
　MSHFlexGrid1.SetFocus

Answer 1

select sum(SALARY) from table where .....

Answer 2

是数值型字段rs.open"select SUM (字段名) from 表 where 条件....", db, adOpenStatic, adLockOptimistic
text1.text = rs.Fields(0)

Answer 3

谢谢指点！！！！！！！！！！！！！！！！！！！
谢谢CSDN！！！！！！！！！！！！！！！！！！！CSDN给了我这个VB初学者一个请教高手指点的空间；
各位艺高而又热心的高手给了我及时而又专业的指点.小弟在青岛向各位致敬！！！！！！！！！！！！！