dao. ekleyerek dener misiniz, database ve recordsetin başına?
yanılmıyorsam güncel sürümlerde hem dao hem de ado olduğundan başına hangisi olduğunu belirten tanımlayıcı getirilmeli

Dim db As dao.Database

Dim rs As dao.Recordset