Функция дбф2тз(ИмяКаталога, ИмяФайла, тз) Экспорт
Перем con, com, rs, стр, инд;
	тз = Новый ТаблицаЗначений;
	
	con = New COMОбъект("ADODB.Connection");
	com = New COMОбъект("ADODB.Command");
	rs  = New COMОбъект("ADODB.RecordSet");
	
	con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ИмяКаталога + ";Extended Properties=dBASE IV;User ID=Admin;Password=;";
	Попытка
		con.Open();
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат Ложь;
	КонецПопытки;
	
	com.ActiveConnection = con;
	com.CommandType =  1 ;
	com.CommandText = "select * from [" + ИмяФайла + "]";
	
	Попытка
		rs = com.Execute();
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат Ложь;
	КонецПопытки;
	
	Для инд =  0  По rs.Fields.Count() -  1  Цикл
		тз.Колонки.Добавить(rs.Fields.Item(инд).Name);
	КонецЦикла;
	
	Пока rs.EOF() =  0  Цикл
		стр = тз.Добавить();
		Для инд =  0  По rs.Fields.Count() -  1  Цикл
			стр[инд] = rs.Fields.Item(инд).Value;
		КонецЦикла;
		rs.MoveNext();
	КонецЦикла;
	
	Возврат Истина;
КонецФункции