关于ADO+ACCESS的动态连接?

动态生成ConnectionString
procedure TForm1.FormCreate(Sender: TObject);
begin
  ACntMain.Connected := False;
  ACntMain.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=' + ExtractFilePath(Application.ExeName) + 'data\dqx.mdb;' +
    'Mode=ReadWrite;Extended Properties="";' +
    'Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";' +
    'Jet OLEDB:Database Password=administrator;' +
    'Jet OLEDB:Engine Type=5;' +
    'Jet OLEDB:Database Locking Mode=1;' +
    'Jet OLEDB:Global Partial Bulk Ops=2;' +
    'Jet OLEDB:Global Bulk Transactions=1;' +
    'Jet OLEDB:New Database Password="";' +
    'Jet OLEDB:Create System Database=False;' +
    'Jet OLEDB:Encrypt Database=False;' +
    'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
    'Jet OLEDB:Compact Without Replica Repair=False;' +
    'Jet OLEDB:SFP=False';
  try
    ACntMain.Connected := True; // statements to try
  except
    on E: Exception do
    begin
      MessageBox(0, PChar('连接数据库失败，请与系统管理员联系！' + #13 +
        Format('错误代码：%s', [E.Message])), MBCS, MB_OK + MB_ICONSTOP);
      Application.Terminate;
    end;
  end; // try/except
end;