[求助]删除记录时，删到最后一条出现错误？
当程序正常执行删除操作时，只要记录中还有记录就没有问题，但是一旦删的一条数据也没有是就会出现如下错误：
实时错误＇３０２１＇：
ＢＯＦ或ＥＯＦ中有一个是＂真＂，或者当前的记录已被删除，所需的操作需要一个当前的记录．
我用的如下代码：
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录？", vbYesNo, "删除记录")
If ts = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast 错误指在红字的地方
End With
End If
End Sub
请大家说说该怎么改？谢谢了
