Het is DAO.
Eerst, ZEKER ben er een Verwijzing aan Microsoft DAO wordt geplaatst die is. 3.6 de Bibliotheek van objecten
VBA Editor>>Tools>>References… ziet het schermschot in bijlage
Dan, probeer veranderend:
Verduister db als Gegevensbestand
Verduister rs als Recordset
Verduister db2 als Gegevensbestand
Verduister rs2 als Recordset
Aan
Schemerige db als DAO.Database
Schemerige rs als DAO.Recordset
Schemerige db2 als DAO.Database
Schemerige rs2 als DAO.Recordset