Не работает update в через ado

СтрокаПодключения = "DSN=fb_test";
    Соединение = Новый COMОбъект("ADODB.Connection");
    Соединение.ConnectionTimeOut = 20;
    Попытка
        Соединение.Open(СтрокаПодключения);
    Исключение
        Предупреждение("Не удалось соединиться с базой данных!");
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    Если Лист= Неопределено Тогда
        Эксель = Новый COMОбъект("Excel.Application");
        Книга = Эксель.WorkBooks.Open(ФайлЭксель);
        Лист = Книга.Worksheets(1);
    КонецЕсли;
    Для Строка = 2 По 946 Цикл
         Состояние("Обрабатывается строка "+Строка);
        Если СокрЛП(Лист.Cells(Строка,5).Value)<> "1" Тогда
            Продолжить;
        КонецЕсли;
        ID = СтрЗаменить(Лист.Cells(Строка,6).Value,Символ(160),"");
        Цена = СтрЗаменить(Формат(Лист.Cells(Строка,3).Value,"ЧРД=." ),Символ(160),"");
        Цена1с = СтрЗаменить(Формат(Лист.Cells(Строка,4).Value,"ЧРД=." ),Символ(160),"");
        КаталожныйНомер = СтрЗаменить(Лист.Cells(Строка,1).Value,Символ(160),"");
        Если Цена<> Цена1с Тогда
            ТекстЗапроса="
            |update nab_parts set
            |nab_parts.nnum1 = '"+Цена+"'
            |where nab_parts.nidlib = "+ID+"
            |and nab_parts.nconcept = 200000365
            |and nab_parts.nid1 = 1506";
            Сообщить("Обновили цену для каталожного номера "+КаталожныйНомер);
            ОбработкаПрерыванияПользователя();

            Cmd                    = Новый COMОбъект("ADODB.Command");
            Cmd.ActiveConnection= Соединение;
            Cmd.CommandTimeOut    = 200;
            Cmd.CommandType        = 1;
            Попытка
                Cmd.Commandtext        = СокрЛП(ТекстЗапроса);
                Cmd.Execute();
                Состояние("Выполняется запрос к базе данных");
            Исключение
            КонецПопытки;
        КонецЕсли;

    КонецЦикла;