Ошибка при подключении к SQL

Св = Новый COMОбъект("ADODB.Connection");
Св.CursorLocation = 3;
Св.ConnectionTimeout=15;
СтрокаСвязи = "Provider=SQLOLEDB.1;Password=pas;Persist Security Info=True;User ID=user;Initial Catalog=basecard;Data Source=cards;Connect timeout=10";
Попытка
Св.Open(СтрокаСвязи);
Исключение
Св = "";
Предупреждение("Ошибка подключения к SQL Server.");
КонецПопытки;

CommEdit = Новый COMОбъект("ADODB.Command");
CommEdit.ActiveConnection = Св;
CommEdit.CommandText = "cards_activate";
CommEdit.CommandType = 4;

НомерКарты = Прав(СокрЛП(Стр.НомерКарты), СтрДлина(СокрЛП(Стр.НомерКарты))-9);

нКом = Новый COMОбъект("ADODB.Recordset");
Попытка
нКом.Open("Execute cards.dbo.cards_activate @card='"+НомерКарты+"'", Св);
Исключение
Сообщить("Произошла ошибка передачи данных!", СтатусСообщения.ОченьВажное);
Сообщить(ОписаниеОшибки());
КонецПопытки;

Пока нКом.EOF() = 0 Цикл
рез = нКом.Fields.item(0).Value;
нКом.MoveNext();
КонецЦикла;

{Обработка.АктивацияКартЕ100.Форма.Форма.Форма(69)}: Ошибка при вызове метода контекста (EOF)
Пока нКом.EOF() = 0 Цикл
по причине:
Произошла исключительная ситуация (ADODB.Recordset): Операция не допускается, если объект закрыт.

Подскажите, плз, что неверно?