Just use datareport labels instead of Textboxes and you can load them programmatically before calling dr1.show:
This sets up the header section:
With dr1.Sections(1)
.Controls(1).Caption = "AGENT"
.Controls(2).Caption = "DAY/DATE"
.Controls(3).Caption = "DAYSHEET"
.Controls(4).Caption = glbBrMan
.Controls(5).Caption = "BRANCH"
.Controls(6).Caption = glbBrName
.Controls(7).Caption = Format(DTPicker1.Value, "ddd d/m"

.Controls(9).Caption = "SHEET:"
.Controls(10).Caption = ""
.Controls(11).Caption = "OF"
.Controls(12).Caption = ""
End With
dr1.Show
Let me know if this helps
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'There are 10 kinds of people in the world: those who understand binary, and those who don't.'