小吳 VBQA 程式設計討論

我有一段小程式，在正常情形下可以刪除ACCESS的資料(用ADODC連ACCESS資料庫)，但偶爾會出現以下錯誤訊息"找不到要更新的列，最後讀取的數值已被變更"、"列控制碼參照已刪除或標記即將刪除列"
請教各位要如何解決(98作業系統，VB6，OFFFICE2000)。TKS!
程式碼:
Set mdkb = Adodc1.Recordset
If mdkb.Recordcount ＞ 0 Then
　　 mdkb.Movefirst
　　 While not mdkb.Eof
　　 mdkb.Delete
　　 mdkb.Movenext
　　 Wend
　End if