Button процедура для загрузки БД

[detalik]

Убрал второй ADOConnection и все равно не работает...

procedure TForm1.N2Click(Sender: TObject);
begin
  openDialog1 := TOpenDialog.Create(self);
  openDialog1.InitialDir := GetCurrentDir;
  openDialog1.Options := [ofFileMustExist];
  openDialog1.Filter :=     'MS Access files|*.mdb';

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
    //adoconnection2.connected:=false;
    adoconnection1.Connected:=false;
    //adoconnection2.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';
    adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';
    //adoconnection2.connected:=true;
    adoconnection1.Connected:=true;
//    adoconnection1.GetTableNames(ListBox1.Items, False); // Çäåñü âûâîäèòñÿ ñïèñîê âñåõ òàáëèö â ÁÄ
   end
  else ShowMessage('Îøèáêà ïîäêëþ÷åíèÿ');

  // Îñâîáîæäàåì
  openDialog1.Free;
end;

И на форме компонент сам удалил

[evg_m]

чтобы получить данные из БД мало установить связь (открыть соединение) надо еще
используя полученное соединение получить НД ( открыть таблицу/ выполнить запрос)
и соединить НД и поля отображения посредством Datasource

connection.connectionstring
connection,open
adoQuery.connection:=connection;
datasource.dataset:=Adoquery;
dbgrid.datasource:=datasource;
adoquery.disableControls;
ADOQuery.open;
adoquery.Enablecontrols;
часть этих действий обычно выполняется во время конструирования(проектирования).
Другая часть во время выполнения.

Для подробного пояснения читайте книги (работа с БД) ссылки есть на страничке КНИГИ. или СПРАВОЧНИКИ.