19-01-14, 03:35 PM
rs12.Recordset.MoveFirst
Text25.Text = ""
For Counter = 1 To rs12.Recordset.RecordCount
Text25.Text = Val(Text25.Text) + rs12.Recordset.Fields(5).Value
rs12.Recordset.MoveNext
Next
rs12.Recordset.MoveLast
Text25.Text = ""
For Counter = 1 To rs12.Recordset.RecordCount
Text25.Text = Val(Text25.Text) + rs12.Recordset.Fields(5).Value
rs12.Recordset.MoveNext
Next
rs12.Recordset.MoveLast

