Thanks for the assistance, I decided to follow something a little different.
If Nz(StartDate3, "") = "" Or Nz(EndDate3, "") = "" Then
DoCmd.OpenReport "rptAgedbyAssociate", acViewPreview, , "UserName Like '*" & Me.assocbox1.Column(1) & "'"
Else
DoCmd.OpenReport...