Hola
En tu caso haces un replace del carácter acentuado antes de hacer la consulta.
Cita: Public Function Limpiar(strlimpiar,modolimpiar)
str = trim(strlimpiar)
Select Case modolimpiar
Case 0:
str = lcase(str)
str = replace(str,"á","a")
....
Case Else
str = strlimpiar
End Select
Limpiar = str
End Function
sinacento = Limpiar(request.form("campo"), 0)
SELECT ALUMNOS.NOMBRE FROM ALUMNOS where nombre like '"&sinacento&"% ORDER BY ALUMNOS.NOMBRE;
Suerte