出错信息“无效的书签”？？？？？？？？？？？？？

[qqmeme]

我用的是Access数据库，备份没有问题，但恢复后有出错信息“无效的书签”，请问各位高手是什么原因？代码如下


procedure Tdatabackform.BackDataClick(Sender: TObject);

var
MyFileName: string;
begin
MyFileName := '';
try
if SaveDialog1.Execute then
begin
MyFileName := SaveDialog1.FileName;
if MyFileName <> '' then
begin
if CopyFile(Pchar(ExtractFilePath(Application.ExeName) + 'kucun.mdb'), pchar((MyFileName + formatdatetime('yyyymmdd', date) + '.back')),false) then
begin
Application.MessageBox('数据备份成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据备份失败','提示',Mb_ok + mb_iconError);
end;
end;

procedure Tdatabackform.RecoverDataClick(Sender: TObject);
var
MyFileName, aa: string;
begin
MyFileName := '';
try
if OpenDialog1.Execute then
begin
MyFileName := OpenDialog1.FileName;
if MyFileName <> '' then
begin
aa := ExtractFilePath(Application.ExeName) + 'kucun.mdb';
if CopyFile(Pchar(MyFileName),Pchar(aa), false) then
begin
kcdm.backconnection.Close;
kcdm.backconnection.Open;
Application.MessageBox('数据恢复成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据恢复失败','提示',Mb_ok + mb_iconError);
end;
end;

[qqmeme]

有谁能帮我一下啊！！！！！
谢谢大家拉！！！！！！

[qqmeme]

按了‘恢复数据’后没有问题，但关闭窗体后出现‘project a.exe raised exception class EoleException with message '无效的书签’

[qqmeme]

急啊！！！！！！！1

[qqmeme]

有谁能帮我一下啊！！！！！
谢谢大家拉！！！！！！

[todouwang]

错误在哪行？没看到有用书签的地方呀

[qqmeme]

有谁知道吗？谢谢大家了

[todouwang]

project a.exe raised exception class EoleException with message '无效的书签’
应该是什么对象没有按步骤来creat和free