Vc passa a palavra para uma função e ele formata pra vc:
'Aqui eu tiro um trecho da textbox para pesquisar
NovoTexto = FormataBusca(left(Textbox1.text,5))
Function FormataBusca( Texto ) as String
dim n, NovoTexto, valorASC
NovoTexto = ""
for n = 1 to len( Texto )
valorASC = asc( mid( Texto, n, 1 ) )
select case valorASC
case 39: NovoTexto = NovoTexto & "''"
case 65: NovoTexto = NovoTexto & "[ÁÀÂÄÃA]"
case 67: NovoTexto = NovoTexto & "[ÇC]"
case 69: NovoTexto = NovoTexto & "[ÉÈÊËE]"
case 73: NovoTexto = NovoTexto & "[ÍÌÎÏI]"
case 79: NovoTexto = NovoTexto & "[ÓÒÔÖÕO]"
case 85: NovoTexto = NovoTexto & "[ÚÙÛÜU]"
case 97: NovoTexto = NovoTexto & "[áàâäãa]"
case 99: NovoTexto = NovoTexto & "[çc]"
case 101: NovoTexto = NovoTexto & "[éèêëe]"
case 105: NovoTexto = NovoTexto & "[íìîïi]"
case 111: NovoTexto = NovoTexto & "[óòôöõo]"
case 117: NovoTexto = NovoTexto & "[úùûüu]"
case else
if valorASC > 31 and valorASC < 127 then
NovoTexto = NovoTexto & chr( valorASC )
else
NovoTexto = NovoTexto & "_"
end if
end select
next
FormataBusca = "'%" & NovoTexto & "%'"
End Function
Então sua consulta vai ficar :
SELECT * FROM Tabela_Simples WHERE TEXTO LIKE '%J[ÓÒÔÖÕO][áàâäãa][ÓÒÔÖÕO]%'
Modifique a função conforme sua necessidade...
Para testar vá no banco e faça na mão a query pra ver se funciona mesmo:
Select campo1 from tabela where texto like ''J[ÓÒÔÖÕO][áàâäãa]*'
Se for uma consulta diretamente no acess tem q ser '*' ... mas se for via vb por ADO então é '%'
qq coisa posta ae...
at+
