Combo Box Atualização Automática

Bom dia!

Pessoal preciso criar uma combobox com base numa caixa de listagem, que se atualize conforme a opção que eu escolha.
Eu coloquei no campo superior um caixa de texto que possuí duas opção, PENDENTE E RECEBIDO.
Eu preciso que quando eu clico em PENDENTE a listagem exiba somente os PENDENTES. Quando RECEBIDO somente os recebidos.

Poderiam me ajudar indicando ulgum código?

Alexandre,

Eu gostaria que a Combo Box filtrasse antes de eu consultar pelo Nome.
Eu vou clicar nos em aberto, ela vai me trazer somente os pendentes, aí ao digitar o nome ele pucha somente as contas pendentes daquele determinado filtro.

Eu estou usando esse código, porém ele está puxando todas os registros da consulta, eu queria que antes de eu digitar ele filtre primeiramente os que estão em abertos ou o que já foram recebidos.


Private Sub Txt_Pesquisar_Change()
   Dim strSQL As String
       strSQL = "SELECT * FROM Cls_Financeiro WHERE Cliente LIKE '*" & Me.Txt_Pesquisar.Text & "*' ORDER BY Cliente"
       Me.List_Financeiro.RowSource = strSQL
           
End Sub






Desde já agradeço,