Access 97 code openrecordset problem

[Bob]

The following bit of code returns error 13
Dim sql As String
Dim rs As ADODB.Recordset

sql = "select * from Mytable where tblID = 1"

Set rs = currentdb.openrecordset(sql)

This code should work and code exactly similar to it works fine in other
applications on same machine also written in Access 97,

However in this app, when we execute the above code we always get this type
mismatch error, however when we run the query itself in query builder it
works fine.
There is no error in select statement.

We looked at the references for the app and we have dao 3.6, Ms access 8.0
obj library

Any help in resolving this would be greatly appreciated.
BoB

 

[Douglas J Steele]

You're using a DAO method (the OpenRecordset method of the DAO Database
object) and trying to assign it to an ADO database.

Either change

Dim rs As ADODB.Recordset

to

Dim rs As DAO.Recordset

or use ADO methods to open the recordset.