[RusMaXXX]

попробуй так:

Код:

var
  path: string;
begin
.....................
  path:='путь к БД';
  ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+';Mode'+
              '=Share Deny None;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.Connected:=true;
.....................