Adding Totals from a Recordset

[Dafly]

I have made some code that adds vals of a dbgrids text but the code is slow it adds 15 diff. totals. can someone recommend a faster way to do this, my code i used is below.

Form1.Data1.Recordset.MoveFirst
For z = 1 To Data1.Recordset.RecordCount

ins = ins + Val(DBGrid1.Columns(6).Text)
lan = lan + Val(DBGrid1.Columns(7).Text)
oth = oth + Val(DBGrid1.Columns(8).Text)
sel = sel + Val(DBGrid1.Columns(9).Text)
mel = mel + Val(DBGrid1.Columns(10).Text)
cct = cct + Val(DBGrid1.Columns(11).Text)
dayt = dayt + Val(DBGrid1.Columns(12).Text)
ngh = ngh + Val(DBGrid1.Columns(13).Text)
acti = acti + Val(DBGrid1.Columns(14).Text)
simi = simi + Val(DBGrid1.Columns(15).Text)
sim = sim + Val(DBGrid1.Columns(16).Text)
dul = dul + Val(DBGrid1.Columns(17).Text)
pic = pic + Val(DBGrid1.Columns(18).Text)
solo = solo + Val(DBGrid1.Columns(19).Text)
hr = hr + Val(DBGrid1.Columns(22).Text)

Data1.Recordset.MoveNext
Next z

_____________
Thank you,
Jeremy


------------------
Dafly98@aol.com

[Clunietp]

use the SUM function in SQL

Select SUM(MyFieldName) from Mytable

msgbox rs.fields(0).value

[rs = recordset object]

Tom