Считывание в ComboBox

Vili

Всем день добрый.Неожидано возникшая проблема:есть база - Data1есть ComboBox - ********* загрузке формы Combo1должен заполниться записями поля - Faktory Код такой:Dim Temp1 As StringData1.Refresh ' метод для восстановления обьекта Recordset With Data1.Recordset ' подготовка таблицы данных для считывания.Do While Not .EOF ' последовательное чтение записей базы данныхCombo1.AddItem .Fields("Faktory").Value 'Считывание поля "Фабрики" из базы в ComboBoxTemp1 = .Fields("Address").Value 'Переход к следующей записи базы данных.MoveNext ' Loop ' End With ' Exit SubEnd SubОба контрола связаны между собой как положено и до недавнего времени все работалоотлично, но при переносе проекта на другой комп и его запуске появилась ошибка :Compile error:Function or interface marked, or the function uses en Autometion type not supported in Visual Basicпри этом слово Recordset в строке With Data1.Recordset, подсвечено синим - ошбка прикомпиляции.Вернуться на старый комп я не могу, да и не уверен, что дело в нем. Где пошептать...?Да, если из програмы исключить приведенный кусок кода, то форма грузится нормально,а в ComboBox "светится" первая запись из поля базы, но список ComboBox пустой.Может кто попадался на такое?Всем спасибо.
1 ответ

Vili

Причина была устранена переинсталяцией VB5 на том самом "другом ПК" и все заработало...,чудеса:-Р