この会社辞めようと思ったソースコード ＃５

この間外注で作成したPG(ACCESS)を実行しててえらく時間がかかると思ってBreakしたら
こんなコード書いてました。

Dim DB As Database
Dim RC As Recordset
Set DB = CurrentDb()
Set RC = DB.OpenRecordset("ワーク")
〜（中略)


Do Until RC.EOF
RC.Edit
RC.Delete
RC.MoveNext
Loop

一万を越すようなデータにこんなことすんな！いつまでたっても終わらん！