Oh, so something like this?
Build the new SQL statement incorporating the string
strSQL = "SELECT * FROM [Vendor Hotline Log] " & _
"WHERE " & strCriteria & ";"
' Open the report
DoCmd.OpenReport "Date Range", acViewPreview
' Apply the new SQL statement to the query...