[Resolvido]Usar texto em pesquisa desconsiderando acentuação

Estou usando o código abaixo para realizar pesquisa nos dados de uma tabela. Quero que, ao digitar - por exemplo - a, que todas as ocorrências da letra com ou sem acentos sejam pesquisadas.

Código:

Private Sub Busca_Change()
    If Me.Opcao = 1 Then
        strWhere = "WHERE CodEvento LIKE '*" & Me.Busca.Text & "*' ORDER BY Tipo,CodEvento"
    ElseIf Me.Opcao = 2 Then
        strWhere = "WHERE Evento LIKE '*" & Me.Busca.Text & "*' ORDER BY Tipo,CodEvento"
    Else
        strWhere = ""
    End If
    Forms!frmEvent_Selec!frmEvent_SelecSub.Form.RecordSource = "SELECT CodEvento,Evento,IIf([Tipo]=True,'C','D') AS CD FROM tblEventos " & strWhere
End Sub

Olá Rui,

Dá uma olhada nesse tópico Retira Acentos

Não é bem o que você quer no momento, más é uma alternativa.

Nivaldo.

Ok Nivaldo.

Obrigado.