Dim vPos As Byte

    Const vComAcento = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåèéêëìíîïòóôõöùúûü"

    Const vSemAcento = "AAAAAAEEEEIIIIOOOOOUUUUaaaaaaeeeeiiiiooooouuuu"

    For I = 1 To Len(texto)

        vPos = InStr(1, vComAcento, Mid(texto, I, 1))

        If vPos > 0 Then

           Mid(texto, I, 1) = Mid(vSemAcento, vPos, 1)

        End If

    Next

    removeAcentos = texto

End Function

 ---------------------------------------------------------------------------------------------

Private Sub mnuProcuraCliente_Click()

   Dim sql As String

    Dim criterio As String, Var As String

    Var = InputBox("Digite o nome do cliente:")

    Var = removeAcentos(Var)

    If Var = "" Then Exit Sub

    criterio = Chr$(39) & Var & "*" & Chr(39)

    If Data1.Recordset.NoMatch Then

        Exit Sub

    Else

        sql = "SELECT * FROM loja WHERE Nome LIKE" & criterio & "ORDER BY Nome"

        Data1.RecordSource = sql

        Data1.Refresh

        Data1.Recordset.MoveMin

        mnuLocalizarExibirTodos.Enabled = True

        DBGrid1.Visible = True

        Label50.Visible = True

        Label50.Caption = "Consulta por nome de cliente: " & UCase(Var) & "."

    End If

    Exit Sub

End Sub