Es DAO.
Primero, estar SEGURO que hay un sistema de referencia a Microsoft DAO. 3.6 Biblioteca objeto
VBA Editor>>Tools>>References… ven el tiro de pantalla atado
Entonces, cambio del intento:
DB dévil como base de datos
Rs déviles como Recordset
Db2 dévil como base de datos
Rs2 dévil como Recordset
A
DB dévil como DAO.Database
Rs déviles como DAO.Recordset
Db2 dévil como DAO.Database
Rs2 dévil como DAO.Recordset