Sum Of A Field In Vb6.0(problem In Coging)

[mesubham]

I have created a project where I created a form( scm.frm),in this form I put a caption(label9) ,this caption will show the total amount in a database field,It is working properly,example if i want to to know the total transaction in November month,It is showing properly,if this month has transaction NIL,it also shows.
My problem is that, when I see the transaction of November,it shows exactly,but when I want to to see the other month (which month has nt transacted) its shows the previous data,ie November month..

Source code :

i have declaired in module......
Global con as new ADODB.connection

General declairation------
Dim data1 As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim subs As String
Dim subs1 As String

clik a command button()

On Error Resume Next
data1.ActiveConnection = con
data1.CommandText = "select sum(amunt) from amn where mon & yr & schm='" & (Combo1.Text) & "' & '" & (Text1.Text) & "'& '" & (Combo2.Text) & "'"
rs.Open data1, , adOpenDynamic, adLockReadOnly
If Not rs.EOF Then
subs = rs.Fields(0) /data field
subs = rs.Fields(1) / ''
subs = rs.Fields(2)
subs = rs.Fields(3)
Label9.Caption = subs
End If
rs.Close

Plz help me....

[QVeen72]

Hi,

Before checking for EOF, write this :

Label9.Caption = ""
If Not rs.EOF Then


Regards
Veena

[mesubham]

On Error Resume Next
data1.ActiveConnection = con
data1.CommandText = "select sum(amunt) from amn where mon & yr & schm='" & (Combo1.Text) & "' & '" & (Text1.Text) & "'& '" & (Combo2.Text) & "'"
rs.Open data1, , adOpenDynamic, adLockReadOnly
Label9.Caption = ""
If Not rs.EOF Then
subs = rs.Fields(0)
subs = rs.Fields(1)
subs = rs.Fields(2)
subs = rs.Fields(3)
Label9.Caption = subs
End If
rs.Close

I have written this code but it is not working yet, When I see the total amount of transacted month,then on the same form If I want to see the total amount of other month(which month has no transaction),It is not showing NIL....Can I make it clear 2 u...
Plz help.

[QVeen72]

Hi,

First remove "On Error Resume Next " Statement, this will help you catch the error.
Moreover, you are not closing the Recordset, after End If, write
RS.Close
Set RS = Nothing

Hope it should fix up..

Regards
Veena