[Demlan]

Здравствуйте! Написал вот такой вот код:

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin

ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source='+ExtractFilePath(ParamStr(0))+'/Anketa.mdb'+
'; Persist Security Info=false ';
ADOConnection1.Open;

ADOConnection1.Connected:=true;
Form2.ADOTable1.Active:=true;
Form2.ADOTable2.Active:=true;
Form2.ADOTable3.Active:=true;
Form2.ADOTable4.Active:=true;
Form2.ADOTable5.Active:=true;
end;