如何用delphi动态打开access数据库文件

Question

procedure TForm2.FormCreate(Sender: TObject);
begin
  with ADOConnection1 do
    begin
      connected:=false;
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'money.mdb;Persist Security Info=False';
      Connected:=true;
     end;
……

Answer 1

procedure TForm2.FormCreate(Sender: TObject);
begin
  with ADOConnection1 do
    begin
      connected:=false;
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'money.mdb;Persist Security Info=False';
      Connected:=true;
     end;
……

Answer 2

请参照：
http://www.csdn.net/expert/topic/595/595399.xml?temp=.6497919
我的回复。