no has hecho exactamente lo que urjose te dijo...
compara ...
Código:
Busqueda=Replace(Request.Form("Busqueda"),"'","")
busqueda=Replace(Request.Form
("criterio","'",""))
problema de parentesis