Buscar Con o sin acentos

[cmartin81]

Hola, ya se que esta pregunta ya la han echo varias veces, pero los códigos que han dado como respuestas no me han servido, por favor alguin me puede decir cómo puedo hacer que un buscador de una base de datos en Access me mande todos los resultados que encuentre de la palabra que se le solicita sin importar si tiene o no acentos.

Llevo ya un muy buen tiempo tratando de hacer eso y no he encontrado un código que me sirva, o alguien me pudiera explicar como utilizar esta función?:

function GenerarC(origen)
'Primero normalizo la palabra dejandola sin acentos
origen = Replace(origen, "á", "a", 1, -1, 1)
origen = Replace(origen, "é", "e", 1, -1, 1)
origen = Replace(origen, "í", "i", 1, -1, 1)
origen = Replace(origen, "ó", "o", 1, -1, 1)
origen = Replace(origen, "ú", "u", 1, -1, 1)

'Cambio las vocales por los comodines para buscar con y sin acentos.
origen = Replace(origen, "a", "[áa]", 1, -1, 1)
origen = Replace(origen, "e", "[ée]", 1, -1, 1)
origen = Replace(origen, "i", "[íi]", 1, -1, 1)
origen = Replace(origen, "o", "[óo]", 1, -1, 1)
origen = Replace(origen, "u", "[úuü]", 1, -1, 1)

GenerarC = origen
end function