如何设置当前目录下的data.mdb为ado中的路径

Question

小弟数据库是 data.mdb，和 Project1.exe在同一目录下面
adoqurey  的  ConnectionString 设置如下，能测试成功，并且可以查询数据的，就是不能插入数据，否则报错Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MS Access Database;DBQ=.\data\data.mdb;DefaultDir=.\data;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"希望高手能教个可行方法，并写出尽量详细过程，感谢万分……哦……没那么多分，只能给20了

Answer 1

ConnectionString 设置为如下:
Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=.\data.mdb;Persist Security Info=True

Answer 2

ExtractFilePath(Paramstr(0))+'data.mdb'

Answer 3

if FileExists(ExtractFileDir(ParamStr(0))+'\data.mdb') then
    begin
        pathstr:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MS Access Database;DBQ='+ExtractFileDir(ParamStr(0))+'\data.mdb;DefaultDir='+ExtractFileDir(ParamStr(0))+';DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"';
        ADOQuery1.ConnectionString:=pathstr;
    end else
    begin
        ShowMessage('请先确定数据库是否存在!');
    end;最后还是这样子解决的，就是要弄麻烦点