Function for query in VBA

[Knight of Nee]

hi the following module should perform a query hardcoded into my VBA project but for some reason it dosnt can somebody tell me whats wrong with it. it get a

Function JQuery(query As String) As String

On Error GoTo Fail

Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim returnVal As String

Set db = CurrentDb
Set rs = db.OpenRecordset(query)

'clean up

returnVal = "" & rs(0)
  
    
rs.Close

Set rs = Nothing
Set db = Nothing



JQuery = returnVal

Exit Function


Fail:

MsgBox ("FAIL!")

End Function

i get a compile error user defined type not defined on the "Dim rs As DAO.Recordset" line. I am using access 2000 on xp

Thanks
Craig

 

[scifibum]

Craig, did you set a reference to the DAO object library in your project? sounds like you need to so VB will recognize the variable type

 

[Knight of Nee]

i dont no, how do i do it?

 

[scifibum]

In the VB Editor, go to Tools: References. Make sure that you have a checkbox next to the most recent DAO object library.

 

[Knight of Nee]

i dont have a DAO object library checkbox in the reference menu

 

[SydneyGeek]

Hi Craig,

yoiu will have a DAO library ref, but it's Microsoft DAO ... You'll probably have several, just select the latest one.

Denis