ADOUtils = Новый("AddIn.ADOUtils");
	Con= Новый COMObject("ADODB.Connection");
	Path="\\Account3\Base\V77\VinomInna\";
	Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;" +
	"Data Source=" + Path + ";" +
	"Extended Properties=""DBASE IV;"";"); 
	ТекстЗапроса="SELECT SC890.Descr
	|From SC890
	|Where SC890.CODE='00000001307'";
	
	ТекстЗапроса1="SELECT *
	|from SC1809";
	Recordset=Con.Execute(ТекстЗапроса1);
	ТЗ =  ADOUtils.ADORecordsetToValueTable(Recordset);
    Тз.выбратьСтроку();
	RecordSet.Close();
	гл_DB_Doc.Close();