vladimir22нашёл!!!!
----------
DataReport можно спокойно использовать для печати произвольных записей и безо всякой базы данных

Dim datarec As ADODB.Recordset
Set datarec = New ADODB.Recordset
Set datarec.ActiveConnection = Nothing ' !!!

datarec.Fields.Append "naim", adBSTR
datarec.Fields.Append "kolvo", adBSTR
datarec.Fields.Append "summa", adBSTR

datarec.Open

datarec.AddNew

datarec.Fields("naim").Value = "Водка"
datarec.Fields("kolvo").Value = "2 шт"
datarec.Fields("summa").Value = "200 руб 01 коп"

Set DataReport1.DataSource = datarec

DataReport1.Show 1

'Разумееется в секции Detail должны быть RptTextBox с DataField (naim kolvo summa)
-------------
проверяю...



Можно использовать рекорсдет без соединения с базой, но прописывать и рисовать репорт все равно придется на основе рекордсета
можно так же вводить значения типа лебел програмно в репорте
Dtr.Selections(1).Controls("ИмяКонтрола").Caption ="Побольше водки" (или Value или Text не помню)