Get values from Access Query thru VB

[Sinni]

I have a query called “QueryTot” which calculates the sum of fields and I am trying to store the values to variables thru the following code, but I am getting the values as null.

Dim Dbs As Database
Dim Tot As Recordset
Dim strSqlTot as string


strSqlTot = SELECT Sum(QueryTot.Bal1) AS SumOfBal1, Sum(QueryTot.Bal2) AS SumOfBal2, Sum(QueryTot.Bal3) AS SumOfBal3 FROM QueryTot;

Set Tot = Dbs.OpenRecordset(strSqlTot)

Value1 = MrTotal.Fields(SumOfBal1)
Value2 = MrTotal.Fields(SumOfBal2)
Value3 = MrTotal.Fields(SumOfBal3)

How do I get the sum to the variables Value1, Value2, Value3?

Thanks in advance,
Sinni.

[Phil Weber]

What is "MrTotal"? I would think you'd want to do:

Value1 = Tot.Fields("SumOfBal1")
Value2 = Tot.Fields("SumOfBal2")
Value3 = Tot.Fields("SumOfBal3")

[Sinni]

I am sorry I made a typo, I have the code as

Value1 = Tot.Fields("SumOfBal1")
Value2 = Tot.Fields("SumOfBal2")
Value3 = Tot.Fields("SumOfBal3")

but still I get the value as null