一個關於資料庫的問題(編號：5799)

我在刪除資料的命令鈕中,寫了以下的內容...
ans = MsgBox("你確定要刪除此筆資料嗎", vbQuestion + vbOKCancel, "產品管理")
If ans = vbOK Then
Adodc1.Recordset.Delete
　　adodc1.recordset.movenext
　　if Adodc1.Recordset.EOF = True Then
　　　　adodc1.Recordset.MoveLast
　　endif
　　Exit Sub
Else
Exit Sub
End If
但是我執行的時候 vb 卻說 automation 錯誤...這是為什麼呢 ?