如何读取ACCESS数据库啊.(0分)

如何读取和程序在同一个目录的ACCESS数据库啊,就像VB里面的APP.PATH参数一样,无论程序搬到那里,都不用重新设置,我的语句如下,但是如果我搬到其它机里使用,也会提示不是有效的路径,请教如何修改啊,
sumold:=tadoquery.Create(self);
sumold.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFileDir(Application.ExeName) +
'/money.mdb;Persist Security Info=False';
sumold.SQL.Add('select * from backup');

write follow in form1.creat then ok good luck
if Con.Connected then Con.Connected :=false;
str:='Provider=Microsoft.Jet.OLEDB.4.0;'+'Data Source='+ExtractFilePath(ParamStr(0))+'data/ke.mdb;';
con.ConnectionString:=str;
con.Connected:=true;
table1.Active:=true;