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

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.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Bob" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> 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
>
>