Recordsetオブジェクトでレコードを削除するには、Deleteメソッドを使用します。
　サンプルプロシージャでは、「動物テーブル」のRecordsetオブジェクトを作成して、
「登録番号」フィールドが1000より大きいレコードを削除しています。

● サンプル　●

Sub Sample()
    Dim rs As Recordset
          
    Set rs = CurrentDb.OpenRecordset("動物テーブル")
    
    Do Until rs.EOF
        If rs!登録番号 > 1000 Then
            rs.Delete
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    
End Sub

● 詳細 ●

　EOFプロパティは、カレントレコードの位置がRecordsetオブジェクトの最後の
レコードよりも後にあるかどうかを示す値を返します。 

● 補足説明 ●

　DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリック
すると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6
Object Library」をチェックします。