Access 2000 Query (access not SQL) with Parameter Need help

[CJwater]

Not really sure how to call an Access query and pass parameters in ADO. My query works, my VBA code does not.
Here's my code any help would be greatly appreciated!

Dim db As Database
Dim rst As Recordset
Dim qdf As QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs("qry_GetWorksheetFlag")

'GetWorksheetID() is function that gets the current ID
qdf.Parameters(0).Value = GetWorksheetID()
'Set rst = qdf.OpenRecordset error I get here is "Type mismatch"
' not sure which to use neither works
Set rst = CurrentDb.OpenRecordset(QDef, dbOpenDynaset)
Error I get "The Microsoft Jet database engine cannot find the input table or query ''. Make sure it exists and that its name is spelled correctly."

Thanks
CJ

 

[PHV]

Dim db As Database
Dim rst As [!]DAO.[/!]Recordset
Dim qdf As QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs("qry_GetWorksheetFlag")
qdf.Parameters(0).Value = GetWorksheetID()  
Set rst = qdf.OpenRecordset

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

 

[CJwater]

Yes, thank you so much; but could you explain why DAO.Recordset?

Thanks again
CJ

 

[PHV]

Because Recordset is defined in both ADODB and DAO libraries and a QueryDef.Recordset should be DAO, thus the type mismatch error.

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