Как вариант.
1. Пишем функцию:
Function xxx(n As Long, s As String) As Boolean
Dim v As Variant
For Each v In Split(s, ",")
If n = Val(v) Then
xxx = True
Exit Function
End If
Next
xxx = False
End Function
2. Запрос:
SELECT n FROM t WHERE xxx(n,[Введите значения через запятую]);