Error 13

[Joe]

I wrote a function that deals with two different tables. However I get an
Error 13
Type Mismatch when I try to set the Recordset.

Here is the code.

Any ideas? This same code works fine in another database.

Dim MyDB As Database
Dim MySet As Recordset
Dim MySet2 As Recordset

Set MyDB = CurrentDb
Error --> Set MySet = MyDB.OpenRecordset("Select * from [Table1]")
Error --> Set MySet2 = MyDB.OpenRecordset("Select * from [Table2]")

 

[Allen Browne]

Try:
Dim MySet As DAO.Recordset

If that still fails, you need to add a reference to the:
Microsoft DAO 3.6 library.

More info on references for each version of Access:
http://allenbrowne.com/ser-38.html