Форумы HiProg.com - MS ACCESS, VBA, VB

ник: FORMAT
Тогда делайте все значения стринговыми

Function RepPar2() As Integer
Select Case Forms![frmCalc].gr1
Case 1
RepPar2 = "In(1;2;3)"
Case 2
RepPar2 = "4"
Case 3
RepPar2 = "5"
Case 4
RepPar2 = "6"
End Select
End Function

А запрос в таком виде

CurrentDb.Execute"Select Number,Name,Tel From Table1 Where Number like '" & RepPar2 & "';"
( т.е. еще добавьте апострофы)