VBA question openrecordset // runtime error 3001

[Beamer]

I am new to Access VBA programming and ran into some problems after I copied old code from Access 97 to my new project in acsess 2000.

I am trying to open a recordset but keep getting errors. Although this should be rather basic.

Set RIcn = CurrentDb.OpenRecordset("Tbl2_ElementInfo", dbopenDynaset)

when running my code, it gives me a runtime error 3001.

Also, when using statements like :

RIcn.NoMatch
RIcn.Edit
RIcn.FindFirst

I get errors staing : Methode or datamember not found.

It looks like I am missing an database add-in or something but not sure about this. Can someone shed a light on this. Thanks.

 

[bmacr]

Access 97 uses the DAO object model by default, whereas Access 2000 uses ADO by default. You need to set a reference to Microsoft DAO 3.6 Object Library (Code window - Tools/References).
Also, you need to explicitly declare your objects as DAO...
e.g.
Dim YourVariable as Database
should become:
Dim YourVariable as DAO.Database

Dim YourVariable as Recordset
should become:
Dim YourVariable as DAO.Recordset

 

[Beamer]

Thanks, that did the job.

Is there a better way to do this according to the standards of access 2000 ? I mean without loading DAO 3.6 ?

 

[bmacr]

I suppose you could convert your code to ADO, but now that you have the reference to DAO set, you shouldn't really have to do anything.