As you can see, single quote marks must be wrapped around any field values that are strings.
Multiple selection example In code, you can send all the selected rows to the report as a filter. Here is the code that will do that:
'place this code in the clicked event of your command 'button which starts the report, e.g., "Run Report" ' - presume the listbox is called lstCustomers ' the recordsource for the report is a query ' containing all the field elements you need Dim strFilter as string Dim varItem as variant ' loop through listbox items selected For Each varItem In Me!lstCustomers.ItemsSelected strFilter = strFilter & "[CustomerNumb] = '" & _ Me![lstCustomers].ItemData(varItem) & "' OR " Next ' continue loop ' ' the next bit of code will subtract out the last "OR" If strFilter <> "" Then strFilter = Left(strFilter, Len(strFilter) - 4) else MsgBox "You did not select any customer(s)." lstCustomers.SetFocus Exit Sub End If ' ' now, run the report using strFilter to pass a string ' containing the needed customers DoCmd.OpenReport "CustomerReport", acPreview,,strFilter