Add values of cl

[Sinha's]

Hi Frns,

Plz som1 help me, I want to add the values of a coloumn in MS Access db, I m using Visual Basic as a front end. The total should be displayed on the Form. So if possible then plz tell me the VB coding.
Thnx in advnce.

[aparnesh]

Dim db as database
Dim rs as recordset
set db = opendatabase("Access_Database_Path")
set rs = db.Open("Table_Name")
Dim mTotal
Do until rs.EOF
   mTotal = mTotal + rs("ColumnName")
   rs.MoveNext
Loop
Text1.text = mTotal
rs.Close
db.close
set rs = nothing
set db = nothing