急！关于ADO的问题啊！

Question

你这样写：
begin
  try begin
  with ADOConnection do begin
    Connected := False;
    ConnectionString := 'Provider=MSDAO.Jet.4.0;Data Source=';
    ConnectionString := ConnectionString + OpenDialog1.FileName;
    ConnectionString := ConnectionString + ';User ID=admin;';
    ConnectionString := ConnectionString + 'Password=;';
    ConnectionTimeOut := 30;
    LoginPrompt := False;
    KeepConnection := True;
    Connected := True;
  end;
  end;
  except
    on e: Exception begin
    ShowMessage('Connect to DB failed : ' + e.Message);
    Exit;
    end;
  end;
end;

Answer 1

ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'data\meter_3.mdb;Persist Security Info=False';
ADOC.Connected:=TRUE;
//ExtractFilePath(Application.ExeName)+'data\meter_3.mdb;我的数据库的绝对地址

Answer 2

ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'data\meter_3.mdb;Persist Security Info=False';
ADOC.Connected:=TRUE;
//ExtractFilePath(Application.ExeName)+'data\meter_3.mdb;我的数据库的绝对地址