求救ADOConnection数据库路径连接问题

Question

那位高手指点一下，最近我用Delphi7的ADOConnection连接Access数据库，
不知道怎样解决绝对路径和相对路径问题,我先在程序外面建立一个UDL，
我想让我的程序随便在那个盘只要修改UDL路径就可以用，请问一下我该在哪个事件
如何写代码，是不是在Beforeconnection写什么代码？
procedure TDataModule2.ADOConnection1BeforeConnect(Sender: TObject);
var
  str1,path:string;
begin
   path:=Extractfilename(Application.ExeName);
   ADOConnection1.ConnectionString:='file name='+path+'\..\cs.udl';
   str1:='file name='+path+'cs.udl';
   showmessage(str1);
end;
请问一下我这样写为什么不对？
我怎样获得Cs.udl的路径，
path:=Extractfilename(Application.?????)
问号处怎样写啊？
showmessage的结果是'file name=project1.execs.udl'

Answer 1

Path:=ExtractFilePath(Application.ExeName);