[vah-smile]

Сообщение от Alegun

Не мучайтесь, нажмите в обжект инспекторе на свойстве таблицы ConnectionString, соберите строку с помощью мастера, а затем просто замените в получившейся строке фиксированный патч до базы на ExtractFileDir(ParamSTR(0)) + "\database.mdb", прям по образцу (можно проверить потом успешное подключение), его и используйте в сборке

Да так и делаю (сформировал строку с помощью мастера и вбил в код TForm1.FormCreate).

Код:

prog_dir:=ExtractFileDir(ParamStr(0))+'\';

  ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'+
                                   'Persist Security Info=False;'+
                                   'User ID=admin;'+
                                   'Mode=ReadWrite;'+
                                   'Extended Properties="DSN=MS Access Database;'+
                                   'DBQ='+prog_dir+'database.mdb;'+
                                   'DefaultDir='+ prog_dir +
                                   'DriverId=25;'+
                                   'FIL=MS Access;'+
                                   'MaxBufferSize=2048;'+
                                   'PageTimeout=5;'+
                                   'UID=admin;';
  ADOConnection1.DefaultDatabase:= prog_dir+'database.mdb;'

При запуске получаю ошибку:

Меня еще что смущает в коде так это параметр UID=admin (без пароля). Можно ли здесь обойтись логином и паролем к БД?