autofiltro em uma caixa de combinação melhoria

Boa tarde pessoal tudo bem?

Aproveitando o tópico do autofiltro em uma caixa de combinação

https://www.maximoaccess.com/t36638-combobox-autofiltro-string

gostaria de uma ajuda da comunidade, se baixarem o exemplo e tentar filtrar um nome duplicado (exemplo: Humberto), se eu tentar pressionar pra baixo pra selecionar o 2º Humberto, ele não vai, fica travado na primeira opção.

até agora não achei ainda uma alternativa pra ele ir pra 2º opção com nome igual

o código que estou usando é esse

Código:

Dim strSQL As String

    Me.cboAutoFilter.Dropdown
    Select Case KeyCode
        Case vbKeyDown
            Me.cboAutoFilter = Me.cboAutoFilter.ItemData(Me.cboAutoFilter.ListIndex + 1)
            KeyCode = 0
        Case vbKeyUp
            Me.cboAutoFilter = Me.cboAutoFilter.ItemData(Me.cboAutoFilter.ListIndex - 1)
            KeyCode = 0
            
        Case vbKeyEscape
            Me.cboAutoFilter = Null 'Limpa a combo
            KeyCode = 0
            strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao, Tabela1.Idade " & _
            "FROM Tabela1 " & _
            "ORDER BY [NomeCompleto];"
            Me.cboAutoFilter.RowSource = strSQL
            Me.cboAutoFilter.Dropdown
        Case Else
    End Select

up

up