Правильнее так:
Функция ДБФвТЗ(ИмяФайла)
ДБФ = СоздатьОбъект("xBase");
ДБФ.ОткрытьФайл(ИмяФайла);
ТЗ = СоздатьОбъект("ТаблицаЗначений");
КолвоКолонок=ДБФ.КоличествоПолей();
Для Кол=1 По КолвоКолонок Цикл
Поле = ""; ТипПоля = ""; ДлинаПоля = 0; ТочностьПоля = 0;
ДБФ.ОписаниеПоля(Кол, Поле, ТипПоля, ДлинаПоля, ТочностьПоля);
ТЗ.НоваяКолонка(Поле,ТипПоля,ДлинаПоля,ТочностьПоля);
КонецЦикла;
ДБФ.Первая();
Пока ДБФ.ВКонце() =0 Цикл
ТЗ.НоваяСтрока();
Для ном=1 По ДБФ.КоличествоЗаписей() Цикл
Для Кол=1 По КолвоКолонок Цикл
тз.УстановитьЗначение(ном,Кол,ДБФ.ПолучитьЗначениеПоля(Кол));
КонецЦикла;
КонецЦикла;
ДБФ.Следующая();
КонецЦикла;
ДБФ.ЗакрытьФайл();
Возврат ТЗ ;
конецФункции Показать