проблема с запуском программы

[gr34241as]

прошу оказать содействие в исправлении ошибки. При запуске программы дает ошибку неверного пути к базе данных (показывает, что бд пустая, хотя это на так).

[vovk]

Запустил экзешник ошибки не было,
когда, и при каких действиях возникает ошибка?

всё как обычно, у вас путь задан жестко,

Provider=Microsoft.Jet.OLEDB.4.0;Us er ID=Admin;Data Source=C:\Users\user\Desktop\Лаб 1\db1.mdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;

формируйте строку подключения при загрузке приложения, вместо жестко задонного пути, используйте путь относительно приложения,

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(ParamStr(0))+'db1.mdb'+';Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database="";Jet'+
'OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk'+
' Transactions=1;Jet OLEDB:New Database Password="";Jet '+'OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'

ExtractFilePath(ParamStr(0)) это место от куда запускается приложение.

[i_Alishka]

а если добавить opendialog?