DAO error in Set rst line...

[tnt]

I have these lines in a procedure...


Dim TempDB As DAO.Database
Dim CustRecs As DAO.Recordset
Dim MySQL As String
MySQL = "SELECT * FROM CustCopy WHERE [CustEmail] Is Not Null"
Set CustRecs = TempDB.OpenRecordset(MySQL, dbOpenDynaset)

Last line giving me problem: Error #91 - Object variable or With block variable not set

I've tried modifying the last line to read...
Set CustRecs = TempDB.OpenRecordset(MySQL, dbOpenSnapshot)
... but I still get the same error. Ideas anyone? Am I looking at possible corruption. Am I overlooking the obvious?

[Bob McClellan]

I use ADO with Projects having SQL backends but if I remember
correctly, you should be able to do something like this...

dim rs as recordset
rs = "SELECT * FROM CustCopy WHERE IsNull([CustEmail]) = false"
NOTE: to query in an .MDB use IsNull
CurrentDb.OpenRecordSet(rs)
... I think that should work....
hth,
..bob

[SteveH2508]

You need to instantiate the variable TempDB with Set TempDB = CurrentDb