Могу предложить такой вариант:
во-первых, чтобы любой отчет работал, в любом случае он должен иметь источник данных, т.е.:
Set rptСправкаСПК.DataSource = rst
где rptСправкаСПК - имя отчета.
Далее, если хочешь расположить данные в любых местах отчета, то взамен текстовых полей я использую метки (label), т.е. это выглядит примерно так:

Private Sub DataReport_Initialize()


rptСправкаСПК.LeftMargin = 500
rptСправкаСПК.RightMargin = 100
rptСправкаСПК.TopMargin = 300
rptСправкаСПК.Orientation = rptOrientLandscape

strSQL = "SELECT * FROM tbtСПКСправка ORDER BY pkey"
rst.Open strSQL, cnn

Set rptСправкаСПК.DataSource = rst
' Далее идет привязка полей отчета к полям набора (у тебя этого может и не быть, т.е. не будет текстовых полей вообще)

rptСправкаСПК.Sections("Section1").Controls("txtПорядНом").DataField = "ПорядНом"
rptСправкаСПК.Sections("Section1").Controls("txtФам").DataField = "ФамСПК"
rptСправкаСПК.Sections("Section1").Controls("txtИмя").DataField = "ИмяСПК"
rptСправкаСПК.Sections("Section1").Controls("txtОтч").DataField = "ОтчСПК"
rptСправкаСПК.Sections("Section1").Controls("txtДатаРожд").DataField = "ДатаРождСПК"
rptСправкаСПК.Sections("Section1").Controls("txtДомАдрес").DataField = "ДомАдрСПК"
rptСправкаСПК.Sections("Section1").Controls("txtМестоРаб").DataField = "МестоРабСПК"
rptСправкаСПК.Sections("Section1").Controls("txtДиагноз").DataField = "ДиагнозСПК"
rptСправкаСПК.Sections("Section1").Controls("txtДатаРег").DataField = "ДатаРегСПК"

' Выясняем дату отчетного периода отчета
rstDate.Open "SELECT ГодНачало,ДатаНачало,ДатаКонец,МесНачало,МесКонец,Парам1 FROM tbsПарамОтчета WHERE КодОтчета=10", cnn

' а вот здесь присваиваешь меткам нужные значения, причем они могут быть из другой таблицы, в общем, откуда угодно

rptСправкаСПК.Sections("Section4").Controls("lblГодПериода").Caption = "за " & rstDate![ГодНачало] & " год"
rptСправкаСПК.Sections("Section4").Controls("lblДатаНачало").Caption = "извещ. " & rstDate![МесНачало]
rptСправкаСПК.Sections("Section4").Controls("lblДатаКонец").Caption = "извещ." & rstDate![МесКонец]

End Sub