[Resolvido]Pesquisa qualquer campo

Olá, venho mais uma vez solicitar um help de vocês; tenho um campo de pesquisa que ignora a acentuação, porém além disso, eu gostaria que esse código também efetuasse a pesquisa em qualquer parte da minha caixa de listagem, no momento ela faz a busca por apenas uma coluna, será que tem como acrescentar algo neste código para que ele faça essa busca? Estou enviando o código e o banco para maior visualização; desde já agradeço.

Link Banco:

https://drive.google.com/file/d/0ByOnIRK3_8BrRm92NHpRNUdMYlU/view?usp=sharing

Código:

Dim strSql As String
strSql = "SELECT CodGibi, HQ, Edição, Ano FROM gibis WHERE " & _
"strConv(hq, 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*';"
Me!caixahq.RowSource = strSql


End Sub

PS: O Formúlario que contém o campo de pesquisa é o "Gibis-2For"

Mude para:

Código:


Dim strSql As String
strSql = "SELECT CodGibi, HQ, Edição, Ano FROM gibis WHERE " & _
"strConv(hq, 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
"OR strConv([Edição], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
"OR strConv([Ano], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*';"
Me!caixahq.RowSource = strSql



Veja se Resolve!

Nossa essa foi no ninho da coruja hein kkkkk muito bommmmmmmmm, deu certinho, poxa falar oque neh Fabião, você manja muito...já fiz a adaptação e, aprendi mais essa; mais uma vez meu amigo, eu te agradeço por mais essa fantástica ajuda, que Deus continue te abençoe grandemente brother, fica na Paz do Senhor Jesus, abraçossssssssssssssssssssssss

Valeu meu Amigo! Até a próxima!