error "type mismatch"

[Debbie Young]

I have this code working in another module. I imported it
to production and get an error trying to set rs.
Could it be the references? I know I had to add some and
set them in a particular order in the test mdb. I tried
to replicate that in the production module.

*******************code**********************
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb

Set rs = db.OpenRecordset("Select tblLABELDATES.* from
tblLABELDATES")