Sir,
aqui puede haber un problema de ambigüedad. Es porque el objeto RECORDSET se llama igual en DAO y en ADO.
Si tienes dos accesos a datos como ADO y DAO debes completar el acceso a la clase para que no haya problemas:
Dim rs as ADODB.Recordset 'Con ADO
Dim rec as Recordset 'Con DAO
No utilices nada que no sea ADO, pues Microsoft ha dejado de dar soporte a DAO y RDO, con lo cual para BBDD modernas pueden no funcionar ya.
Saludos
Pablo