Dim rptTxtGroup As TextObject
rptTxtGroup = rpt.ReportDefinition.ReportObjects.Item("Text15")
rptTxtGroup.Text = Session("Label")
rptTxtGroup = rpt.ReportDefinition.ReportObjects.Item("Text16")
rptTxtGroup.Text = Session("ADR1")
rptTxtGroup = rpt.ReportDefinition.ReportObjects.Item("Text17")
rptTxtGroup.Text = Session("TEL")
rptTxtGroup = rpt.ReportDefinition.ReportObjects.Item("Text18")
rptTxtGroup.Text = Session("City")
This pretty much does what i need at least from what I can tell. I have done a couple test and they have all passed.