عمل جمع لقيم حقل معين فى قاعدة البيانات

Dim Result as long
Result = val(Ado.FieldByName("Field1").value + val(ado.fieldbyname("field2).value

لست متاكد ان FieldByName ستعمل لكن الكود يريك كيفية عمل ما تريد

تريد مجموع قيم سجلات حقل معين:

rs=cn.execuate("select sum(some_field) as sum_fields from table_name")
dim sum as integer
sum=rs("sum_fields").value
me.txtSum.text=str(sum)