What is this error?

[Vec]

The code below gives me an error:
"Object Variable or with block variable not set"

and highlights:
Set rsTemp = Data1.Database.OpenRecordset("SELECT SUM(ADD6) AS TOTALPRICE FROM LOG WHERE ORDERNUM > 0", dbOpenDynamic)

Here is the code that causes the error:

Data1.DatabaseName = "data.mdb"
Dim sql As String
Dim dbfields As String
dbfields = "Add6"

sql = ("SELECT " & dbfields & " FROM log WHERE OrderNum > 0&quot

Data1.RecordSource = sql

Dim rsTemp As Recordset
Set rsTemp = Data1.Database.OpenRecordset("SELECT SUM(ADD6) AS TOTALPRICE FROM LOG WHERE ORDERNUM > 0", dbOpenDynamic)

lbl1.Caption = "$" + CStr(rsTemp!totalprice)

rsTemp.Close
Set rsTemp = Nothing


Am I missing a reference or something? -

Looking Toward The Future

http://www.webfusiondesign.com

 

[Maroney]

It doesn't look like you have actually connected to the database. I don't tend to use the Data Controls but I would imagine that you need to open the database before it can be used.

 

[mmilan]

I game him the code Pie... It's from the "How to add up these numbers" thread.

I explained it was a bit iffy, and I've gone though looping through the recordset as an alternative...