Update в postgresql из 1с

Всем привет!
Возникла проблема при изменении записи в таблице sql. Запрос select к базе на сервере отрабатывает без ошибок,но вот update не работает,хотя в pgadmin на localhost та же конструкция работает. Может кто-что подскажет?Может есть какие-нибудь права на чтение-запись?

перем НаборЗаписей, ИдБаланса;
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Connection = Новый COMОбъект("ADODB.CONNECTION");
    Connection.ConnectionString = "Driver={PostgreSQL ODBC Driver(Unicode)}; Server="+"172.21.3.251"+";Port=" +
    "5432"+";Database="+"set"+";Uid="+"postgres"+";Pwd="+"00PaSsMSSQL!"+";STMT="+"utf8";
    Попытка
        //Состояние("Подключение к базе PostgreSQL...");
        Connection.open();
        //Сообщить("База PostgreSQL подключена");
    Исключение
        Сообщить("Не могу подключиться к базе PostgreSQL ");
    КонецПопытки;


    НаборЗаписей = Новый ComObject("ADODB.RecordSet");
    Команда = Новый COMОбъект("ADODB.Command");
    Попытка
        Команда.ActiveConnection = Connection;
        ТекстЗапроса=
        "SELECT
        |cards_bonusaccounts_balance.bonusaccounts_id
        |FROM
        | public.cards_bonusaccounts_balance,
        |public.card_cards,
        | public.card_internalcard_bonusaccount
        |WHERE
        |cards_bonusaccounts_balance.bonusaccounts_id = card_internalcard_bonusaccount.bonusaccountid AND
        |card_internalcard_bonusaccount.cardid = card_cards.id AND
        |cards_bonusaccounts_balance.balancetype = 0 and
        |card_cards.numberfield='"+НомерКарты+"'";

        Команда.CommandText =ТекстЗапроса;
        НаборЗаписей = Команда.Execute();
        ИдБаланса=НаборЗаписей.Fields(0).Value;

            Исключение
        Сообщить("Нет данных.");
                Возврат;
    КонецПопытки;
          Сообщить(ИдБаланса);



Команда = Новый COMОбъект("ADODB.Command");
    Попытка
Команда.ActiveConnection = Connection;
ТекстЗапроса =
"UPDATE cards_bonusaccounts_balance
|set ammount=0
|WHERE cards_bonusaccounts_balance.balancetype = 0 and
|cards_bonusaccounts_balance.bonusaccounts_id = '"+Формат(ИдБаланса,"ЧГ=0")+"'";
Команда.Execute(ТекстЗапроса);
Исключение
Сообщить("Не получилось");
КонецПопытки;

КонецПроцедуры