如何在ADO中设置记录书签

这个问题问的人也很多

var
? bk: TBookmark;
begin
? if adodsVresult.Active and (adodsVresult.RecordCount > 0) then
? begin
??? bk := adodsVresult.GetBookmark;
??? //操作数据库这里
?
??? if adodsVresult.BookmarkValid(bk) then//如果标记能匹配就找到该纪录
????? adodsVresult.GotoBookmark(bk);
? end;
end;