Добрый день. Делаю подключение к файлу .GDB из 1с. Первое подключение проходит нормально. При повторном появляется ошибка:Произошла исключительная ситуация (ADODB.Recordset): Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

Процедура подключения/отключения:

    
Connection = Новый COMОбъект("ADODB.Connection");
      Connection.ConnectionString = "Driver=Firebird/InterBase(r) driver;" +
     "Dbname=" + СокрЛП(Объект.ПутьКФайлу) + ";" +
     "UID=" + СокрЛП(Объект.Пользователь) +   ";" +                            

     "PWD=" + СокрЛП(Объект.Пароль);                            

    Попытка
        Connection.Open();
        Сообщить("Успешное подключение");
        
        
    Исключение
        Сообщить("Подключение к БД  не установлено. Проверьте настройки подключения");
        Connection = Неопределено;
    КонецПопытки;
///////////////////////////////////////    
     RS = Новый COMОбъект("ADODB.Recordset");
            RS.Open("Select produce.id From  produce Where produce.isactive = 1" , Connection);
            RS.MoveFirst();        
            Пока RS.EOF()=0 Цикл  
                  Cообщить(RS.Fields("id").Value);
                Попытка
                    RS.MoveNext();
                Исключение
                    Прервать;
                КонецПопытки;
            КонецЦикла;
        RS.Close();    
        RS = Неопределено;

    Connection.Close();
    Connection = Неопределено;

ап

а зачем второй раз подключаться?
так происходит всегда? даже если пыаешься подключиться например спустя 20 минут?

а, потому что ты его обнуляешь зачем-то, ну ок...

Еще раз, ошибка на этой строчке:
RS.Open("Select produce.id From  produce Where produce.isactive = 1" , Connection);
?

Раздерибань строку на такие:

    Команда = Новый COMОбъект("ADODB.Command");
    Команда.ActiveConnection = Connection;
Команда.CommandText = "Select produce.id From  produce Where produce.isactive = 1";
    НаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
    Попытка
        НаборЗаписей = Команда.Execute();
    Исключение
        ОписаниеОшибки = ОписаниеОшибки();
        //Сообщить(ОписаниеОшибки);
        //А.П. май 2012
        ЗаписьЖурналаРегистрации("Paradox.НаборЗаписей.Исключение",УровеньЖурналаРегистрации.Ошибка,,,Команда.CommandText+Символы.ПС+ОписаниеОшибки,);
        

    КонецПопытки;




И можно еще


    Connection.ConnectionTimeOut =20;
    Connection.CursorLocation = 1;
    Connection.Mode=1;


Перед  

Попытка
        Connection.Open();

но только чур, это не внешние источник данных как это принято в 1Совской терминологии.

(6) прошу прощения за терминологию)
Да, ошибка в этой строке. Раздерибанить не получилось:
Произошла исключительная ситуация (ADODB.Recordset): Операция не допускается, если объект закрыт.

А почему не получилось? Раздерибань