Как выгрузить всю таблицу БД SQL в поле текстового документа (по запросу пользователя)?

Процедура BT_SQLClick(Элемент)
	
	
	Попытка
        Соединение  = Новый COMОбъект("ADODB.Connection");
        Команда     = Новый COMОбъект("ADODB.Command");
        Выборка     = Новый COMОбъект("ADODB.RecordSet");
        Соединение.ConnectionString =
            "driver={SQL Server};" +
            "server="+ИмяСервераSQL+";"+
            "uid="+ПользовательSQL+";"+
            "pwd="+ПарольSQL+";"+
            "database="+БазаДанныхSQL+";";
        Соединение.ConnectionTimeout = 10;
        Соединение.CommandTimeout = 600;
        //Открытие соединение
        Соединение.Open();
        Команда.ActiveConnection   = Соединение;
    Исключение
        Сообщить(ОписаниеОшибки());
		ЭлементыФормы.STATUS_TEXT.ЦветТекста = Новый Цвет(250, 0, 0);
		ЭлементыФормы.STATUS_TEXT.Значение = "Ошибка запроса!";
        Возврат;
	КонецПопытки;
	
	 //Читаем записи
    ТекстЗапроса =
        "SEL ECT
        |   [id], [tst]
        |FROM "+ТаблицаSQL_TST;
	
	ТекстЗапроса_2 =
        "SEL ECT * FR OM "+ТаблицаSQL_Enum;
	
	//id = 4;
	//tst = "Я вот что тут подумал ...";
	//ТекстТекущейИнструкции =
	//    "SET IDENTITY_INSERT "+ТаблицаSQL+" ON;
	//	|INS ERT INTO "+ТаблицаSQL+"
	//    |([id], [tst])
	//    |VALUES ('"+id+"', '"+tst+"')";
	//Попытка
	//    Соединение.Execute(ТекстТекущейИнструкции,,128);
	//    Сообщить("Запись добавлена!");
	//Исключение
	//    Сообщить(ОписаниеОшибки());
	//КонецПопытки;
	
	Попытка
		Команда.CommandText = ТекстЗапроса;
		Выборка = Команда.Execute();
		Если Выборка.BOF = Ложь Тогда
		    Выборка.MoveFirst();
			Пока Выборка.EOF = Ложь Цикл
				s_res = "id= " + Число(Выборка.Fields("id").Value) + ", tst= " + СокрЛП(Выборка.Fields("tst").Val ue);
		        ЭлементыФормы.FLD_ResSQL.ДобавитьСтроку(s_res);
				Сообщить(s_res);
		        Выборка.MoveNext();
		    КонецЦикла;
		КонецЕсли;
		ЭлементыФормы.FLD_ResSQL.ДобавитьСтроку("Запрос выполнен!");
	Исключение
		ЭлементыФормы.FLD_ResSQL.ДобавитьСтроку("Ошибка запроса!");
	    Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
	Соединение.Close();

КонецПроцедуры;

SEL ECT * FROM ТSQL_Enum