Microsoft Access 掲示板

For Each Itm In Me![製品リストbox].ItemsSelected

これでItmに入るのはリストのインデックスになってますね。ItemsSelected プロパティ (Access)
（インデックスを入れる変数名にItmを使うのはなんかやだなぁと思ったけどリンク先の例文もvarItmだった・・・）

    '製品用フィルター生成
    Dim listIndex As Variant
    For Each listIndex In Me![製品リストbox].ItemsSelected
        strFilter = strFilter & ",'" & Me![製品リストbox].ItemData(listIndex)  & "'"
    Next

あと

    '顧客用フィルター追加
    If Me!コンボID <> "" Then
'           trFilter = "顧客ID=" & Me!コンボID & " AND " & strFilter  ←コピペミス？'
            strFilter = "顧客ID=" & Me!コンボID & " AND " & strFilter
    End If

VBEのオプション設定のお勧めを徹底解説
VBA触るなら読まないと損するページです。
つまらないミスをなくすためにも変数宣言の強制を。