Access - DAO en Proyecto Access

Que tal amigos

Les quiero hacer una consulta, si son tan amables y me podrían ayudar les agradecería mucho.

Estoy trabajando en un proyecto de access (es decir, .ADP) y quisiera saber como usar DAO en los proyectos de access, ya que he usado el codigo que conozco de MDB y me da un error.

Tengo cargada la referencia DAO 3.6, pero al colocar por ejemplo

Dim mibd as Database
Dim miws as Workspace
Dim rs as Recordset
Set miws = DBEngine.Workspaces(0)
Set mibd1=miws.Databases(0)
Set rs=mibd1.Openrecordset ("Select * from tabla")

me da error en la línea del recordset, dice que el bloque with no está establecido, pues bien, reviso "mibd1" y dice que es Vacio, estoy seguro que de ahí sale el error, la variable mibd1 no contiene nada.

cómo hago para solventar esta solución?

muchas gracias de antemano

buen día

yo simplemente hago:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(origen)

en "origen" podés poner el nombre de la tabla directamente o usar SQL

Espero haberte ayudado.