Problema en buscador con tildes ( ó, í, etc.)

[mc_quake]

tye recomiendo usar estas funciones

Function Acentos(xtexto)
ArrayP = Array("á","é","Ã*","ó","ú","à ","è","ì","ò","ù","a","e","i","o","u","a","e", "i","o","u")
ArrayP2 = Array("a","e","i","o","u","a","e","i","o","u","á" ,"é","Ã*","ó","ú","à ","è","ì","ò","ù")
Largo = Len(xtexto)
For l = 1 To Largo
Caract = Mid(xtexto,l,1)
For x = 0 To Ubound(ArrayP)
If Lcase(Trim(Caract)) = Lcase(Trim(ArrayP(x))) Then Caract = "["&ArrayP(x)&ArrayP2(x)&"]"
Next
NewText = NewText & Caract
Next
Acentos = NewText
End Function
'=================================================
Function Limpiar(xtexto)
ArrayP = Array("el","la","lo","los","las","algún","cierto" ,"otro","mucho","poco","bastante","un","una","unos ","unas","cuál","de","a","e","i","o","u","y","con ","que","qué","or","and","to","%",Chr(34),Chr(39) )
For x = 0 To Ubound(ArrayP)
If Lcase(Trim(xtexto)) = Trim(ArrayP(x)) Then
xtexto = Replace(xtexto,Trim(ArrayP(x)),"")
Session("Comunes") = Session("Comunes") & Trim(ArrayP(x)) & " "
End If
Next
Limpiar = xtexto
End Function