[Kailon]

Попробуй так... Ни каких файлов и ничего писать не нужно.

Код:

var
  MyPath: String;

procedure TFormGeneral.FormCreate(Sender: TObject);
begin
  GetDir(0, MyPath);
  try
    ADOConnect.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + MyPath +
      '\NameBase.mdb;' + 'Persist Security Info=False;';
    ADOConnect.Connected := True;
    ADOTableWorker.Active := True;
  except
    MessageBox(Handle,
                 'Произошла ошибка при подключении к базе данных!',
                 'Ошибка!',
                 MB_ICONERROR + MB_OK);
    Application.Terminate;
  end;
end;