奇怪的刪除指令結果 請指點一下(編號:6957)

錯誤訊息:鍵欄位資訊不足或不正確;太多列被更新所影響.
目的:把 table aaa 所有資料刪除 結果出現如上之錯誤訊息
奇怪的是:::::::::程式不變 但資料筆數不同時
重複多次 有時會成功 有時則出現錯誤 真是粉奇怪!!!!!
(使用vb6.0企業版 access97 jet4.0)
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "Select * from aaa"
Adodc1.Refresh

While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
 Adodc1.Recordset.MoveNext
Wend