botão remover - Limpa combos

Este é o código que tenho para remover o que foi filtrado pelas combos ( 2 combos )

Private Sub removerFiltro_Click()
DoCmd.RunCommand acCmdRefresh
Me.pesquisaExercicios = Null
Me.PesquisaTExercicios = Null
End Sub

Sendo que só funciona a 2ª... ou seja clico no botão este limpa as combos... clico na 1ª combo seleciono "algo" volto a clicar no botão e a partir dai resulta... não será o pretendido... Experimentei também DoCmd.RunCommand acCmdRemoveAllFilters mas não funcionou . . . ?
Pretendia que ao clicar no botão este limpa-se as combos e pudesse voltar a pesquisar novos dados... combos sequenciais...

1ª combo ( PesquisaTExercicios )
Apenas faz a consulta a tabela pretendida

2ª combo ( PesquisaExercicios )
Private Sub pesquisaExercicios_AfterUpdate()
DoCmd.ApplyFilter , "ID = " & Me!pesquisaExercicios.Column(0)
Me.Nome.SetFocus
Me.pesquisaExercicios.Enabled = True
End Sub

Na consulta - Critérios
[Forms]![EXERCICIOS]![PesquisaTExercicios]

Opa Marco seu problema parece ser algo fácil de resolver mas precisaria ver o código. Para ver o pq apenas um deles que está limpando.

Olá . . .
Deixo a parte do bd _ ( https://www.dropbox.com/s/veuz79w3ztu36wg/LimpaCOMBOS.rar?dl=0 )
Form Exercícios - combo - pesquisaTExercicios e pesquisaExercicios

Up