[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;

[Demlan]

Вопрос закрыт, были изменены поля в БД.

[Demlan]

Есть другой вопрос, куда надо поместить данный код, чтобы при открытии программы подключалась БД из папки с самой программой?

[Страдалецъ]

Попробуйте поменять '/Anketa.mdb' на '\Anketa.mdb'

[Demlan]

Как вариант))