Es ist DAO.
Zuerst SICHER sein, dass es einen Bezugssatz zu Microsoft DAO gibt. 3.6 Objekt-Bibliothek
VBA Editor>>Tools>>References… sehen angebrachten Schirmschuß
Dann Versuchändern:
Schwaches DB als Datenbank
Schwache rs als Recordset
Schwaches db2 als Datenbank
Schwaches rs2 als Recordset
Zu
Schwaches DB als DAO.Database
Schwache rs als DAO.Recordset
Schwaches db2 als DAO.Database
Schwaches rs2 als DAO.Recordset