¿X se encuentra en cadena separada por ';' de un campo en una BD?

[marco_foros]

Podrías intentar con la función InStr, algo así...

If InStr(cadena, ";" & rs.fields("id") & ";") > 0 Then 'La funcion InStr te devuelve la posición de la ocurrencia.
Response.Write("El valor existe en tu cadena")
Else
Response.Write("El valor no existe")
End If

Otra cosa que podrías hacer es usar la función split para separar tu cadena por ";" y checar si en el arreglo que te genera existe el valor de tu rs.

Dim varAux
varAux = split(cadena, ";")
<Estructura de control para recorrer el arreglo (varAux) y comparar los valores con tu rs.>

Espero te sirva esto.

Saludos!