Type Mismatch

[vlingen]

Hi -
I've used this code hundreds of time w/o a problem, but today is a new day. I keep getting a Type Mismatch error when I run:

Dim CurDb As Database
Dim rTmpNotes As Recordset
Dim sSQL As String

Set CurDb = DBEngine.Workspaces(0).Databases(0)

'open Temp Ship notes table
sSQL = "SELECT * FROM _TmpShipNotes"
Set rTmpNotes = CurDb.OpenRecordset(sSQL, dbOpenDynaset)


The error occurs on the last line.
Any suggestions would be WONDERFUL!

Thanks

 

[PHV]

Dim rTmpNotes As [!]DAO.[/!]Recordset

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vlingen]

That worked!

Thanks so much, but I don't understand. I've written the code as displayed many times in the past without any problems.

This time I'm dialed into a customer and suddenly I need the "DAO"

Thanks for you quick response.

 

[PHV]

Seems like you have a reference to, say, Microsoft ActiveX Data Objects 2.x Library, with higher precedence than the Microsoft DAO 3.X Object Library.