クラスモジュールに書いたコードを標準モジュールに移すとエラーになります.
問題の箇所はDAOレコードセットのAbsolutePositionが-1になる行です.
標準モジュールでは3001エラーになりますが,フォームのモジュールにコピペすると問題なく動きます.
レコードがあるのに,AbsolutePositionが-1はおかしいのでエラーが出て当然なのですが,どうしてクラスモジュールだと見逃されるのでしょうか？