Probá así (la única línea importante es la marcada en negritas)
Código:
'...
codigo = Request.Form("codigo")
'...
codigo = replace(codigo, ",", "','")
strSQL = "SELECT * FROM FACPVAL where codigo in ('"&codigo&"')"
igual modifiqué la sentencia SQL porque, a mi entender, hay espacios que están demás (los marco con
_:
in ('_"&codigo&"_') ")