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


'Устанавливаем связь с рекордсетом


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

Set rs = Nothing