ник: Анатолий (Киев)
"select * from tabl where id in (" & strParam & ")"
Если у вас в списке - числа, то, по логике, на строке
strParam = strParam + Me!Выбор.ItemData(varItm) + ","
должна вылетать ошибка, т.к. VBA думает, вы пытаетесь найти сумму строки и числа.
Пишите так:
strParam = strParam & Me!Выбор.ItemData(varItm) & ","
А еще лучше:
strParam = strParam & "," & Me!Выбор.ItemData(varItm)
...
strParam = Mid$(strParam, 2)
...