为什么删除不掉第一行?急!

[qxin2002]

DataGrid1一开始是没有任何记录的,此时有系统的第一行空白
我添加3条记录,从最后一行删除,可是到第一行时就出错了
"Requested operation requires a current record"
代码如下:
On Error GoTo DeleteErr

With Ado_detail.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
DataGrid1.Refresh
Exit Sub
DeleteErr:
MsgBox Err.Description

[lanWay]

With Ado_detail.Recordset
.record.count<1 then exit sub
if .bof=true then .movefirst
if .eof=true then .movelast
.Delete
.MoveNext
If .EOF Then
if .recordcount>0 then
.MoveLast
else
exit sub
endif
endif
End With
DataGrid1.Refresh
Exit Sub

[qxin2002]

谢谢!
还是会出错,找不到当前行.
是否datagrid有设置呢?
再请帮忙看看!好着急啊.

[DaiLM]

With Ado_detail.Recordset
if .recordcount=0 then exit sub
.Delete
If .EOF or .BOF Then
if .recordcount>0 then
if .bof=true then
.movefirst
elseif .eof=true then
.movelast
else
.movenext
end if
else
exit sub
end if
end if
End With
DataGrid1.Refresh
Exit Sub