Using Dlookup in unbound text box in report

[PrintShopSup]

I have searched some time to be able to pull a value not in my report table to my report. I found that I was able to use the DLookup function to get that variable upon opening my report. My issue is when I try to assign that variable to an unbound text box in the report. I get a run-time error. The run time error is shown below along with the code. Any advice would be greatly appreciated.

Run-time error '-2147352567 (800200009)':

You can't assign a value to this object.

Private Sub Report_Open(Cancel As Integer)
Dim stLocation As String
stLocation = DLookup("[fldLocationName]", "[qryLocationByUser]")
'check to verify correct data
MsgBox stLocation, vbOKOnly, "My Location"
Me.txtLocationbx = stLocation
End Sub

[RuralGuy]

Use the Format or Print event of the detail section to assign the variable to a control. The Open event is too early in the process.

[PrintShopSup]

I was able to assign the code to the On Activate Event and achieve my expected results. Thanks for the prompt response and to point me in the right direction.

[RuralGuy]

Glad you got it sorted.