Run-time error '13' in DAO

[mfd777]

When trying to open a recordset I keep on getting @Run-time error '13' Type mismatch error.

Code is very simple:
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset ("test", dbOpenSnapshot)



The @test@ query opens fine in the database window.

 

[mfd777]

Solved problem. Needed to prefix declaration of recordset with DAO