[Resolvido]Erro ao Digitar

Pessoal boa tarde
venho solicitar a ajuda novamente aos mestres,
onde estou errando no campo ao digitar ir filtrando minha caixa de listagem...

Private Sub txtnome_Change()
Dim strSql As String

strSql = "SELECT [PLACA], [NOME], [VEÍCULO], [CODI] FROM qry ConDESIGNADOS WHERE " & _
"strConv(PLACA, 2, 1042) like '*" & StrConv(Me!txtnome.Text, 2, 1042) & "*'" & _
"OR strConv(NOME, 2, 1042) like '*" & StrConv(Me!txtnome.Text, 2, 1042) & "*'" & _
"OR strConv([VEÍCULO], 2, 1042) like '*" & StrConv(Me!txtnome.Text, 2, 1042) & "*'" & _
"ORDER BY PLACA;"

Me!lstnome.RowSource = strSql

End Sub

Compare com esse exemplo e veja onde esta o erro.

Provavelmente esteja na condicao...

https://www.maximoaccess.com/t26249-resolvidoformulario-de-pesquisa-caixa-de-listagem

Fabio exatamente isso...obrigado amigo pela ajuda....resolvido