DELPHI动态链接ACCESS数据库

Question

我想动态链接ACCESS数据库，代码如下。但无法连接上，不知道问题出在哪啊，请指点！谢谢！
try
  ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
  +'Data Source='+ExtractFilePath(Application.ExeName)+'EpIqSyHCV.mdb;'
  +'Password='';UserID=Admin;'
  +'Persist Security Info=False';
  ADOConnection.Connected:=true;
except
  Application.MessageBox('无法与系统数据库连接!系统将退出!请重试!','数据库连接错误!',MB_OK+MB_ICONERROR);
  Application.Terminate;
end;

Answer 1

  try
    ADOConnection.Connected := false;
    ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'TAMCCDB.mdb;Persist Security Info=False';
    ADOConnection.LoginPrompt :=false;
    ADOConnection.connected:=True;
  except
    messagedlg('数据库联接出错，程序退出.',mtInformation,[mbOk],0);
    application.terminate;
  end;