Error handler
Set qd = db.CreateQueryDef("qryDtlMgrMth" & i, "SELECT tblPromotionType.promotionType, Manager.Code, Manager.DirectorCode, tblYear.Year, tblMonth.Month, tblMonth.MonthName, Manager.ManagerName FROM Manager, tblMonth, tblPromotionType, tblYear GROUP BY...