As in like this?
strWhere = Left(strWhere, Len(strWhere) - 1)
'open the report, restricted to the selected items
Debug.Print "Negotiator IN(" & strWhere & ") And [Date Called] Between #" & Format(Me.txtFrom, "dd\/mm\/yyyy") & "# And #" & Format(Me.txtTo, "dd\/mm\/yyyy") & "#"
DoCmd.OpenReport...