Как отключить БД программно?

   var
      Access : Variant;
   begin
      if Label_ad_bd_path.Caption <> '' then
         begin
            if MessageDlg('продолжить?', mtWarning, [mbyes, mbNo], 0) = mryes then
               begin
                  Access := CreateOleObject('Access.Application');
                  Try
                     if Access.CompactRepair(Label_ad_bd_path.Caption, Label_ad_bd_path.Caption + '_old') then //здесь ошибка
                        begin
                           DeleteFile(Label_ad_bd_path.Caption);
                           RenameFile(Label_ad_bd_path.Caption + '_old', Label_ad_bd_path.Caption); 
                           MessageDlg('БД сжата', mtInformation, [mbOK], 0);
                        end;
                     Access.Quit;
                     Access := Unassigned;
                  except
                     MessageDlg('Ошибка!', mtError, [mbOK], 0);
                     Access.Quit;
                     Access := Unassigned;
                  end;
               end;
         end
      else
         MessageDlg('Введите путь', mtWarning, [mbOK], 0);
   end;