Vb 6

pls can any body help me with code on how to add subtotal of numbers in the database in VB6 using MS Access

dim db as new adob.connection
dim rs as new adob.recordset
dim subTotalValue as long

db.connection="your conection string"
db.open
set rs=db.execute("Select sum(subtotal) from <your table>")
subTotalValue=rs.fields(0).value
rs.close
db.close

Hope this solves your problem
If it didnt hit http://www.nairaland.com/nigeria/topic-60292.0.html and explain your questions there, if need be I will write a sample and sent it to you.

Take care and bye for now.

The second solution above is super. I assumed you have connected to your Db already and already making use of a Recordset,

DIm Sum as double, i as inteher
' This is what the first responder meant
for i = 1 to rs_mee.Recordset.Recordcount
     sum = sum + rs_mee.RecordSet.Fields("number")  'your column to sum
     rs_mee.Recordset.Movenext
next i
F5

why do you think looping is better in database where SQL can solve the same problem.
Consider having 10m records and you loop to get the subtotal, what will happen if you need to do many time by may people on the network?

db.connection="your conection string"
db.open
set rs=db.execute("Select sum(subtotal) from <your table>")
subTotalValue=rs.fields(0).value
rs.close
db.close

with the above code the system will assume as if you are opening and fetching the database at the same time sums your subtotal and your result will be returned to you, even if you are querying by many people.

plz dont alway depend on loop as if you are writing QBASIC where SQL can handle the same job!