Filtering based on two criteria (1 Viewer)

Hello!
I am having trouble filtering my report.
My goal is to filter the report by:
1) [DateChanged] by user entry on a form (txtFrom and txtTo)
2)[Deliverable] by selection of a list box on form

My error is in the last line when i open the report.
it only lets me filter using either option 1 or 2.
When i include the "And", it gives me the error "Type Mismatch"
I know its a syntax error.

Any help?
Thanks!
My code is below

'''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Deliverable As String
Dim DateChanged As String
Dim VarItm As Variant
For Each VarItm In List2.ItemsSelected
Deliverable = Deliverable & "[ID] = " & List2.Column(0, VarItm) & " OR "
Next
If Deliverable <> "" Then
Deliverable = Left(Deliverable, Len(Deliverable) - 4)
Else
Deliverable = "True"
End If


If Me.txtFrom <> "" Then
DateChanged = "[DateChanged] Between #" & Format(Me.txtFrom, "m/d/yyyy") & _
"# And #" & Format(Me.txtTo + 1, "m/d/yyyy") & "#"
End If
DoCmd.OpenReport "rChangeReport", acViewReport, , Deliverable And DateChanged

What exactly do you expect of Deliverable in the OpenReport?

see
https://msdn.microsoft.com/en-us/library/office/ff192676.aspx
http://www.blueclaw-db.com/docmd_openreport.htm

I have a list of delivery item in a list box on a form. The user then selects items from the list box that they want to appear on the report.

I'm just having trouble making both filters work at the same time

can't put two Criteria together like that. You actually need to do that first and then put *that* in the Where portion. Something like...


I did not test the above, it is an example only because if your Users only select from the List Box you are going to have to strip off the last 5 characters with some like...


You will also have to write something if they want to see all the records.