retirar acentos em combobox

caros amigos, tenho uma combobox de pesquisa com a seguinte consulta na "origem da linha"

SELECT TabPessoa.codigo_pessoa, TabPessoa.vulgo, TabPessoa.nome FROM TabPessoa WHERE (((TabPessoa.vulgo) Like "*" & [Informe o nome desejado] & "*")) OR (((TabPessoa.nome) Like "*" & [Informe o nome desejado] & "*")) ORDER BY TabPessoa.nome;

porem não me retorna os nomes com ou sem acentos,

verifiquei no fórum o exemplo "com sem acentos"

quem possui o codigo abaixo

Private Sub txFiltro_Change()
Dim strSql As String
strSql = "SELECT idCliente, NomeCliente, Telefone FROM tblClientes WHERE " & _
"strConv(NomeCliente, 2, 1042) like '*" & StrConv(Me!txFiltro.Text, 2, 1042) & "*';"
Me!Lista.RowSource = strSql
End Sub

como faço para adaptar o codigo na minha combobox?

atenciosamente

Marcelo

SELECT TabPessoa.codigo_pessoa, TabPessoa.vulgo, TabPessoa.nome FROM TabPessoa WHERE strConv(TabPessoa.vulgo, 2, 1042) like '*" & [Informe o nome desejado] & "*" OR strConv(TabPessoa.Nome, 2, 1042) like '*" & [Informe o nome desejado] & "*" ORDER BY TabPessoa.nome;

Tente assim!

Caro Fábio, inseri a query na "origem da linha" da combobox e apresentou erro de sintaxe

Posta aqui seu Exemplo.