书签不存在.....(50分)

if Application.MessageBox(PChar(Form1.User_Name+'：您确定删除此单电缆试验记录吗？'+#13+#13+'单击“是”将删除此单，是否继续？'),'删除试验记录',Mb_YesNo+Mb_IconQuestion)=6 then
begin
Try
Form1.ADOConn.BeginTrans;
ADOCommand1.CommandText:='Delete From Cable_Experiment Where id='+Lb_SY_id.Caption;
ADOCommand1.Execute;
Form1.ADOConn.CommitTrans;
MBookMark:=ADODataSet1.GetBookmark;
try
ADODataSet1.Close;
ADODataSet1.Open;
if Not(MBookMark is nil) then
ADODataSet1.GotoBookmark(MBooKMark);//此句出错，信息为“书签不存在”
finally
ADODataSet1.FreeBookmark(MBookMark);
end;
except
on E:Exception do
begin
Form1.ADOConn.RollbackTrans;
Application.MessageBox(PChar('操作遇到错误被终止，系统返回的错误信息如下：'+#13+#13+E.Message) ,'操作失败',Mb_OK+Mb_IconInformation);
end;
end;
end;
（补丁都打了。使用客户游标。）
以上代码希望能删除记录后打开关闭数据集能自动把当前游标走到下一条记录上。
但是出错“书签不存在”
BDE中如此使用好像就没有问题。请教：如何解决？

MBookMark:=ADODataSet1.GetBookmark;提前到Form1.ADOConn.BeginTrans;
下。
你把数据都删除了，还哪有书签？

谢谢！我写错地方了。