DataReport БЕЗ базы данных - VB

Формулировка задачи:

Доброго дня! Подскажите, возможно ли передача текста

НАПРЯМУЮ

из текстового поля формы, в текстовое поле ОТЧЁТА (DAtaReport). Этот вопрос поднимал несколько раз, но ответа так и не дождался. НУжно это для проги: При оформлении договоров, для быстроты я использую форму, чтоб не в ВОРДЕ заполнять её, ибо долго и не удобно. потом по нажатию на кнопку открывается ВОРД документ, уже готовый к печати. Напряжно обращаться в ВОРДУ, ибо если на компе его нет, то соответственно программа работать не будет. Хочется полностью отучить прогу от зависимости от внешних программ (таких как ВОРД). Спасибо! Надеюсь поможите..

Решение задачи: «DataReport БЕЗ базы данных»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
<font color="00AA00">'создаем рекордсет</font>
<font color="blue">With</font> rs
rs.Fields.Append <font color="teal">"FId"</font>, adInteger
rs.Fields.Append <font color="teal">"FData"</font>, adDBTimeStamp
rs.Fields.Append <font color="teal">"FName"</font>, adVarChar, <font color="darkblue"><b>150</b></font>
.<font color="blue">Open</font>
.AddNew
.Fields(<font color="teal">"FID"</font>).Value = <font color="darkblue"><b>1</b></font>
.Fields(<font color="teal">"FData"</font>).Value = <font color="blue">Date</font>
.Fields(<font color="teal">"FName"</font>).Value = <font color="teal">"Наименование"</font>
.Update
.AddNew
.Fields(<font color="teal">"FID"</font>).Value = <font color="darkblue"><b>2</b></font>
.Fields(<font color="teal">"FData"</font>).Value = <font color="blue">Date</font>
.Fields(<font color="teal">"FName"</font>).Value = <font color="teal">"Наименование2"</font>
.Update
<font color="blue">End</font> <font color="blue">With</font>


<font color="00AA00">'Устанавливаем связь с рекордсетом</font>


<font color="blue">With</font> DataReport1
.Sections(<font color="darkblue"><b>1</b></font>).Controls(<font color="teal">"lblJustText"</font>).Caption = <font color="teal">"Шапка документа ввиде текста"</font> <font color="00AA00">' вывод обычного текста</font>
<font color="blue">Set</font> .DataSource = rs
.Sections(<font color="darkblue"><b>2</b></font>).Controls(<font color="teal">"txtId"</font>).DataField = <font color="teal">"FId"</font>
.Sections(<font color="darkblue"><b>2</b></font>).Controls(<font color="teal">"txtData"</font>).DataField = <font color="teal">"FData"</font>
.Sections(<font color="darkblue"><b>2</b></font>).Controls(<font color="teal">"txtName"</font>).DataField = <font color="teal">"FName"</font>
.Show
<font color="blue">End</font> <font color="blue">With</font>

<font color="blue">Set</font> rs = <font color="blue">Nothing</font>
                        