acentos en buscas

[Dream_ni]

Choroy, ya probaste con:

clave=InStr(1,RS("producto"),AccIns(palabras(c)),1 )

es decir con tu misma función de búsqueda, para ver si funciona otra idea que puedo darte es que extraigas la palabra del resultado y la compares con la del criterio de búsqueda, si son disitintas verificar si la palabra de resultado lleva el acento, si lo lleva cambiar la palabra del criterio de búsqueda por la coincidencia en el resultado y luego poner el codigo para resaltar el resultado. Como puedes obtener la palabra coincidente del resultado? de la siguente manera me imagino que debe funcionar aun no lo he probado:

resultadoRs = Rs("Producto")
criterio = Request.Form("palabra")
longcri = len(criterio)
coincidencia=Instr(1,resultadoRs,criterio,1)
criterio=Mid(coincidencia,resultadoRs,longcri).

Recuerda que solo son ideas, porque la verdad esta como dificil resaltar las palabras que no coinciden porque la comparación la haces letra por letra...

Espero te sirva de ayuda!!
Saludes