FAQですが、DAOのRecordset.RecordCountプロパティは、レコードを全件読み込んでから値を返すのではなく、現在読み込み中の値を返します。 正確な値が必要な場合、MoveLastメソッドを実行して最終レコードに移動してからRecordCountプロパティを参照する必要があります。 Private Sub Form_Current() Dim lngRecCount As Long Me.RecordsetClone.MoveLast lngRecCount = Me.RecordsetClone.RecordCount If Me.CurrentRecord >= lngRecCount Then (以下、略) ちなみにADOでは仕様が変わっており、MoveLastしなくても、全件の件数が返ります。 ただし、使用するDBプロバイダによっては、adUseServerではRecordCountが取得できない(-1が返る)という問題があります。