Substituir palavra

Opa! Tô fazendo uma busca de qtas captaçoes cada corretor tem. Tô usando a seguinte função:

function PreparaPalavra(str) preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]") preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]") preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]") preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]") preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]") preparaPalavra = preparaPalavraend function

e no select:

 

strQuery2 = "SELECT captador FROM imoveis WHERE captador LIKE '%"&PreparaPalavra(captador)&"%'"Set objRs2 = Server.CreateObject("adodb.recordset")objRs2.open strQuery2,objConn,3,3

Mas o corretor cadastrado como "Júnior" não conta se estiver registrado "Junior" (sem acento). Pq não funciona?