当程序正常执行删除操作时，只要记录中还有记录就没有问题，但是一旦删的一条数据也没有是就会出现如下错误：
实时错误＇３０２１＇：
ＢＯＦ或ＥＯＦ中有一个是＂真＂，或者当前的记录已被删除，所需的操作需要一个当前的记录．
我用的如下代码：
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

请大家说说该怎么改？谢谢了

都没有记录了你还movelast，
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录？", vbYesNo, "删除记录")
If ts = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
'If .EOF Then .MoveLast　　　错误指在红字的地方
If .Eof = True then
MsgBox "记录已为空",vbOkOnly + vbInformation,"提示"
Exit Sub
End If
End With
End If
End Sub

谢谢楼上的
但是有一个问题啊，如果我直接删除的是最后一条记录，而且前面还有记录，那它仍将提示我＂记录已为空＂，这样就是错误的了！

那你在加一个判断啊
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录？", vbYesNo, "删除记录")
If ts = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
'If .EOF Then .MoveLast　　　错误指在红字的地方
If .Eof = True then
If .RecordsetCount = 0 then
MsgBox "记录已为空",vbOkOnly + vbInformation,"提示"
Exit Sub
Else
.MovePrevious
End If
End If
End With
End If
End Sub

如果删除的记录是首记录的话，也用类似的语句判断就可以了，如果需要判断是移动到首记录还是尾记录的话你可以组合起来，具体怎样做你先自己想想先哦

谢谢了,很有收获啊!呵呵

不用那么复杂，直接给个错误捕捉不就得了？
On Error Resume Next