Busqueda en base de datos.... validar palabras con acentos?

[3pies]

Prueba esto:

Código:

Function Acentos(texto)
 Dim ComponerTexto
 For x = 1 To Len(texto)
  ComponerTexto = Mid(texto, x, 1)
  Select Case ComponerTexto
   Case "a", "à", "á", "À", "Á"
    Acentos = Acentos & "[aàáâÀÁÂ]"
   Case "e", "é", "è", "È", "É"
    Acentos = Acentos & "[eéèêÈÉÊ]"
   Case "i", "ì", "í", "Ì", "Í"
    Acentos = Acentos & "[iìíîÌÍÎ]"
   Case "o", "ò", "ó", "Ò", "Ó"
    Acentos = Acentos & "[oòóôÒÓÔ]"
   Case "u", "ù", "ú", "Ù", "Ú"
    Acentos = Acentos & "[uùúûÙÚÛ]"
   Case Else
    Acentos = Acentos & ComponerTexto
  End Select
 Next
End Function

Y la sentencia SQL, sería más o menos así:

Código:

palabra_a_buscar = trim(request.form("palabra_a_buscar"))
SQL= "SELECT campo1, campo2, campo3 FROM tu_tabla WHERE campo1 LIKE '%" & lCase(Acentos(palabra_a_buscar)) & "%' ORDER BY campo1 ASC"

Salu2