Delphi 动态连接ACCESS数据库，不需要设置ConnectionString 1

在DataModule里面编写它的DataModuleCreate 事件代码

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
  path:string;
begin
  path:=extractfilepath(paramstr(0));//注意你的ACCESS数据库必须和你的程序放在同一个文件夹里面，此代码是获得执行文件的路径
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'shujuku.mdb;Persist Security Info=true';
  try
    ADOConnection1.Open;
  except
    showmessage('CONNECTION ERROR.');
  end;
end;