Visual Basic - Conexion SQL Access

Hola tengo una aplicacion que se conecta a SQL Server 2000 via ADO quiero hacer lo mismo a access desde ka misma aplicacion pero al tratar de "setear" el Recordset me manda error 13 que los tipos no coinciden, quiero saber a que se debe y si es por que está la conexion de SQL Server abierta, ya que de la base de SQL necesito tomar datos y mandarlos a la de Access, para conectarme a access lo hago de esta manera

Dim aDB As Database, aRS As Recordset
Set aDB = DBEngine.OpenDatabase(App.Path & "\reportes.mdb", False, False, ";pwd=password")
Set aRS = aDB.OpenRecordset("select * from tabla1")

cuanto Setea la base de datos nop asa nada el error ocurre al tratar de setear el Recordset

De antemano Gracias.

El problema es que estás mezclando ADO con DAO y VB se está liando.
Define los objetos como
Dim aDB as DAO.Database, aRS as DAO.Recordset
y si tienes algun Recordset de ADO definelo como
dim rst as ADODB.Recorset

Otra idea mejor es que te olvides de DAO (borrando incluso la referencia en el proyecto) y utilices también ADO para conectar con Access.