[Resolvido]Filtrar igual ao digitado numa caixa de texto

Bom dia Amigos

No alterar o código abaixo para filtrar igual ao digitado na caixa "txtpesq"

Por exemplo, se tiver-mos
- Gás
- Gasoleo

Obrigado


Private Sub txtpesq_Change()
Dim strSql As String
   strSql = "SELECT Historico, Rubrica, Entidade, idmovimento, jalinhaqry(LançamentosVer.valordebito,14,'Currençy',3),
     jalinhaqry(LançamentosVer.valorcredito,14,'Currençy',3),LançamentosVer.ano FROM LançamentosVer WHERE " & _
     "strConv(Historico, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
     "OR strConv(Rubrica, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
     "OR strConv(Entidade, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
             Me!clista.RowSource = strSql


End Sub

A culpa é dos asteriscos. Eles são caracteres coringas.

filtrar
*amor*

retorna
> amora
> namorada

ou seja, caracteres tanto na frente quanto atrás. Retire os asteriscos que então o código passa a trazer somente os valores exatos informados em txtpesq.

Obrigado Amigo

Mas assim funciona perfeito:

strSql = "SELECT Historico, Rubrica, Entidade, idmovimento, jalinhaqry(LançamentosVer.valordebito,14,'Currençy',3), jalinhaqry(LançamentosVer.valorcredito,14,'Currençy',3),LançamentosVer.ano FROM LançamentosVer WHERE " & _
"strConv(Historico, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(Rubrica, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(Entidade, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*';"
Me!clista.RowSource = strSql

Fique atento que assim os acentos serão considerados em suas filtragens. Buscar "oleo" não retornará "óleo". Buscar "gas" não retornará "gás".