再次请教文件备份操作，大家帮我看看这段代码到底有没有错啊？

Question

try
 CopyFile( pChar(Trim(ExtractFilePath(Application.ExeName))+'xxx.MDB'),
              pChar(SaveDialog1.fileName),false );
 MessageBox(self.Handle,'备份数据成功!','系统提示',mb_ok+64);
 except
 MessageBox(self.Handle,'备份数据失败,请检查!','系统提示',mb_ok+64);
 exit;
 end;请问这段代码有没有问题？为什么我执行备份后，退出了该窗体，进入另一个窗体时，新窗体的ADOCnection连接的数据库的路径就变了（文件名未变），结果就出错了。我不执行备份时，就不会出现这个错。
而且如果我直接退出整个程序，再启动，就没有这个问题。我把SaveDialog1的属性initiaDir设置成了当前目录下的一个子目录，是不是和这个有关啊？
请问该怎么改啊？

Answer 1

退出了该窗体，进入另一个窗体时，新窗体的ADOCnection连接的数据库的路径就变了（文件名未变），结果就出错了
??

Answer 2

就是打开的新窗体本来的ADOCnection连接的是程序文件夹的一个数据库，但是执行备份后它的路径就变为了存放备份文件的路径了，就提示在该路径找不到数据库。

Answer 3

你ADOCnection的连接字符串所呢? 贴出来看看~