Eliminar caracteres de una cadena y Usar el Like en una búsqueda sobre campo numerico

[AlZuwaga]

me parece que la solución es mucho más simple.
Si te pasan un 3 y querés que devuelva los enteros y los que tienen decimales, entonces estás haciendo una consulta por los ">= 3 AND < 4"

O sea que debería quedar más o menos así (cuidado que no estoy verificando que sea correcto):



sql_actividad = "Select * From ActividadGeneral Where "
For i=0 to ubound(actividad)
sql_actividad = sql_actividad & "codigo >= " & actividad(i) & " AND codigo < " & actividad(i) - 1 & " OR "
next