How sum a data report column

Dear friends,
Your valuable advice helps me great. I am totally new in VB6 programming. I create a Data Report without Data Environment. The codes are as follows

Code:

---

private Sub CmdPrint_Click()
CON.Open ("provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db1.mdb")
RS.Open "select * from table1", CON, adOpenDynamic, adLockOptimistic
Set RPT2.DataSource = RS
    RPT2.Sections("section1").Controls("Text1").DataField = "TYPE"
    RPT2.Sections("section1").Controls("Text2").DataField = "part_no"
    RPT2.Sections("section1").Controls("Text3").DataField = "product_name"
    RPT2.Sections("section1").Controls("Text4").DataField = "mrp"
    RPT2.Sections("section1").Controls("Text5").DataField = "QTY"
    RPT2.Sections("section1").Controls("Text6").DataField = "TOTAL"
    RPT2.WindowState = 2
    RPT2.Show 1
RS.Close
CON.Close
End Sub

---

Now I want to print the Total sum of the Total field at the bottom of the report. So, friends what is the code for it?

Please friends help me in this regard.

I do not know about data report as I use Active Reports instead. In Active Reports there is a property that can be set to count or sum rows within a group or wintin a report. I would think that data report has something similar.

Have you tried a Google search, or your online help?

Dear Sir, I have zero knowledge about Active reports. Please help me about this regard.

As I mentioned I have not used data report but I would expect it has a simple method to do what you seek.

I'll ask again have you tried a Google search or checked your online help? If not then that should be your first recourse.

Code:

---

RS.Open "select sum(Total) from table1", CON, adOpenDynamic, adLockOptimistic

---

bind the result from this query to your total Field...