multiselect listbox - search result problem

[svartisya]

Hello
I have a search form with a multi-select listbox and a button that opens a continuous form with the search results.
Here's the problem: when I select more than one item, the form shows all risults with one item OR another item, I need to search for all records that contain all the selected items. I need your help as I'm a noob with VBA

This is the code I am using:

Private Sub Search_Click()
    
    Dim strSelection As String, varItem As Variant
    Dim strSQL As String
    For Each varItem In Me!ListbI.ItemsSelected
         strSelection = strSelection & Me!ListbI.ItemData(varItem) & ","
    Next varItem
    If Len(strSelection) = 0 Then
          MsgBox "Select at least one item!", vbExclamation, "Attention!"
          Exit Sub
   End If
   strSelection = Left(strSelection, Len(strSelection) - 1)
    strSQL = "IDIng IN (" & strSelection & ") "
   DoCmd.OpenForm "Filter", acNormal, , strSQL
   DoCmd.Close acForm, "Search"
Exit_Search_Click:
   Exit Sub
End Sub

thank you

[June7]

Check out Allen Browne's code for this http://allenbrowne.com/ser-50.html

[svartisya]

Thanks June7
I tried Allen Browne's code, but I get exactly the same result as before.
The code uses the OR operator, so if a record includes both items, my coninuous form shows this record twice. How can I avoid showing records more than one time?

[June7]

I don't understand. How can a record have more than one value in same field, unless it is a multi-value field and I don't think this code would work with multi-value field?

Show sample data.

[svartisya]

I think the problem is my query, I'm trying to fix it