ник: 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 & "';"
( т.е. еще добавьте апострофы)