Try using a Function, all you are doing is adding a filter to the call:
Function XYZ()
dim loginname as String
With CodeContextObject
loginname = .loginname
DoCmd.OpenReport "XYZ", acViewPreview, , "[loginname] = '" & loginname & "'", acWindowNormal
End With
End...