Dúvida De Busca Com E Sem Acentos

[Nesh]

Estou com esse codigo para busca de palavras com ou sem acentos,

ma está acontecendo o seguinte, quando eu procuro (pe) vem 10 registros com e sem acentos, mas quando eu digito (pé) só vem 3 registros que estão com acentos e os sem acentos não vem, o que está acontecendo?

bus=busca

bus=replace(bus, "a", "[a,á,à,ã,â,ä,A]")

bus=replace(bus, "e", "[e,é,è,ê,ë,E]")

bus=replace(bus, "i", "[i,í,ì,î,ï,I]")

bus=replace(bus, "o", "[o,ó,ò,õ,ô,ö,O]")

bus=replace(bus, "u", "[u,ú,ù,û,ü,U]")

bus=replace(bus, "c", "[c,ç]")

if bus <> "" and cidade="categoria" then

bus = split(bus," ")

sql= "select * from sites where palavra_chave like '%" & bus(l) & "%'"

for l = 0 to UBound(bus)

sql=sql & "or palavra_chave like '%" & bus(l) & "%' or url like '%" & bus(l) & "%' or nome like '%" & bus(l) & "%'"

next

sql=sql & "order by nome"

end if

o que pode ser?

Até mais

[kuroi]

não sei de onde você pegou, isso mas deve ser um tipo de exemplo, pois pra funcionar você teria q fazer assim:

bus=replace(bus, "á", "a")
bus=replace(bus, "à", "a")
bus=replace(bus, "ã", "a")
bus=replace(bus, "â", "a")
bus=replace(bus, "ä", "a")
bus=replace(bus, "A", "a")
bus=replace(bus, "é", "e")[/code]
e assim por diante.
veja tb q a letra com virgula vem antes da sem virgula na funcao replace.
porque a primeiro é a string q deve ser substituida e a segunda é a q vai entrar no lugar.