io di solito i recordset dao li aprivo così
codice:
set Rs =Db.OpenRecordset("stringa sql", dbOpenSnapshot, dbSQLPassThrough)