Type Mismatch

[DeutchBose]

Another piece of code not working with DAO 3.51...

Dim db as Database
Dim rs as Recordset
Dim GuideTable as String

GuideTable = "Table1"


Set rs = db.OpenRecordset(GuideTable)

The last line here comes up with a Type Mismatch error...would it be something else besides 'OpenRecordset'...? Thanks

 

[Norie]

Don't type the variable rs.

ie Dim rs

 

[NateO]

Try:

Dim db As DAO.Database, rs As DAO.Recordset
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("Table1", dbOpenTable)

http://www.mvps.org/access/bugs/bugs0031.htm