実行順
1)OpenDatabaseを使いデータベースファイルを開く
2)OpenRecordsetを使いテーブルを開く
3)Do Until rs.EOF でループを開始します。
4)Deleteで1レコード削除します
5)MoveNextで次のレコードへ移動します。
6)Loopで繰り返します。
7)Closeを使いデータベースを閉じます。
8)Set = Nothingで使われていたシステムリソースとメモリリソースを解放これで完了です。
実行前のテーブル
実行シート
実行し削除されたテーブル
