ひょっとしてADOにも参照設定がされていて、優先順位がDAOより上になっているとか?その場合、DAOの方を優先順位を上に設定してみて下さい。又は、下記のように宣言して下さい。 Dim DB As DAO.Database Dim RS As DAO.Recordset