Delphi 7, подключение к БД, ошибка "Строка задаёт ошибочный путь"

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOConnection1.Close();
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Close();
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'it_otdel_duma.mdb;Persist Security Info=False';
Application.HintHidePause:=10000; {время показа всплывающих подсказок в милисекундах}
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
try
ADOConnection1.Open();
PageControl1.ActivePage := TabSheet1; {текущая вкладка всегда первая - пользователи}
PageControl2.ActivePage := TabSheet9; {текущая вкладка в k-means всегда первая -результаты}
except
ShowMessage ('Не удаётся подключиться к базе: it_otdel_duma.mdb');
Application.Terminate();
end;
end;

RvProject10.ProjectFile:=ExtractFilePath (Application.ExeName) +'Reports\Project10.rav';
RvProject10.Execute;

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="'
  + ExtractFilePath(Application.ExeName)+'it_otdel_duma.mdb";Persist Security Info=False';

var FileNameDB : string;
// ...
FileNameDB := ExtractFilePath(Application.ExeName)+'it_otdel_duma.mdb';

ADOConnection1.ConnectionString :=
  Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source="%s";Persist Security Info=False', [FileNameDB]);