ไม่ทราบว่า Chr(34) หมายถึงอะไรค่ะอาจารย์
เพราะว่าส่ง print แล้วบอกว่า data not match0tcdhw-vpjk'wivu8jt

Dim varItem As Variant
Dim strFilter As String
Dim strDocName As String

For Each varItem In Me.lstProduct.ItemsSelected
strFilter = strFilter & "[ProductID] = " & Chr(34) & _
Me.lstProduct.ItemData(varItem) & Chr(34) & " OR "
Next

If strFilter <> "" Then
strFilter = Left(strFilter, Len(strFilter) - 4)
strDocName = "rptproduct"
DoCmd.OpenReport strDocName, acPreview, , strFilter
Else
MsgBox "Don't choose product", vbOKOnly, "µÑÇÍÂèÒ§¡ÒûÃÐÂØ¡µì Multi-selected List Box"
End If