oleDbConnection.ConnectionString := String.Concat('Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source="', path, '";Mode=Share Deny None;Jet OLEDB:Engine Type=5;Provider="Microsoft.Jet.OLEDB.4.0";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1');
    try
        oleDbConnection.Open
    except
        on exception: Exception do
            raise Error.Create(ClassName, FuncName, 'Не могу открыть базу', exception)
    end