Dim dbsNew As Database... undefined type???

[aqua56]

I am trying to create a new recordset from the current database.

When I try to compile after using...

Dim dbsNew As Database
Dim rstItem As Recordset

Set dbsNew = CurrentDb
Set rstItem = dbsNew.OpenRecordset( _
"SELECT * FROM Items&quot

The compiler throws up an error saying 'user defined type, not defined'

I cannot get it to recognise Dim dbsNew As Database.

Any help appreciated.

 

[KyleS]

Hi,

Go into Tools-->References and make sure you have a reference set to "Microsoft DAO (version number here) Objects"

change your code to:

Dim dbsNew As DAO.Database
Dim rstItem As DAO.Recordset Kyle

 

[aqua56]

Many Thanks

All working fine now.