Just use an input form and reference the form from the query. Or remove the criteria from the query and then pass it when you open the report:
DoCmd.OpenReport "ReportNameHere", acViewPreview, , "[FieldNameHere]=" & Me.YourControlNameWithTheLimitingValueHere