Добрый день!
Подключение проходит успешно, но почему-то запрос пустой, ТЗ не заполняется

        ИБ_V8= СоздатьОбъект("V83.Application");          
        Попытка
            Открыта=ИБ_V8.Connect("Srvr="""+СокрЛП(ИмяСервера)+""";Ref="""+СокрЛП(ИмяБазы)+""";Usr="""+СокрЛП(Логин)+""";Pwd = """ + СокрЛП(Пасворд) + """;");
            ИБ_V8.Visible = 0;
            Сообщить("База 1с8 открыта!");                                  
            
        Исключение
            Предупреждение("Ошибка открытия базы V8 - "+ОписаниеОшибки());
            
        КонецПопытки;      
        
        Запрос=ИБ_V8.NewOBJECT("Запрос");
        
        Запрос.Текст = "ВЫБРАТЬ
        |    СтраныМира.Код,
        |    СтраныМира.Наименование,
        |    СтраныМира.КодАльфа2,
        |    СтраныМира.КодАльфа3
        |ИЗ
        |    Справочник.СтраныМира КАК СтраныМира";
        
        РезультатЗапроса = Запрос.Выполнить();
        Выборка = РезультатЗапроса.Выбрать();
        Пока Выборка.Следующий() = 1 Цикл
            ТаблицаСтран.НоваяСтрока();
            ТаблицаСтран.Код_1с8 = СокрЛП(Выборка.Код);
            ТаблицаСтран.КодАльфа2_1с8 = СокрЛП(Выборка.КодАльфа2);
            ТаблицаСтран.КодАльфа3_1с8 = СокрЛП(Выборка.КодАльфа3);
            ТаблицаСтран.Наименование_1с8 = СокрЛП(Выборка.Наименование);
        КонецЦикла;

ставлю на
Выборка.Следующий() = -1

(1) почему?

потому что значение типа VT_BOOL платформа 1С7 конвертирует в число:
VARIANT_TRUE = -1
VARIANT_FALSE = 0

(3) большое спасибо!!!
особенно за то, что не поленились объяснить

исходный код:

/* 0 == FALSE, -1 == TRUE */
typedef short VARIANT_BOOL;

#define VARIANT_TRUE ((VARIANT_BOOL)-1)
#define VARIANT_FALSE ((VARIANT_BOOL)0)

булевый тип в COM, это 16 разрядное знаковое число, для Истина все биты заполнены, для Ложь все биты сняты.

А 7.7, по простоте душевной числом его и передает, и по скольку число вроде как знаковое, то -1 в дополнительном двоичном коде и есть все биты установлены (0xFFFF).

чета я сегодня разболтался..

(6) Или что бы мозги не пудрить
Выборка.Следующий() <> 0