Filtrar formulario continuo pela combo

Amigos;

Criei um formulario continuo baseado em uma consulta simples, e nele coloquei um form que apresenta todos os nomes registrados em outra consulta baseada na consulta que gerou o form em questão. Apliquei um codigo de filtro que adaptei de um form do aplicativo Maestro do Avelino, e parece ter ficado tudo bem, com relação ao código em si, que nao apresentou nenhum erro aparente. O fato é que o filtro deveria ocorrer apos a atualização da combo, mas o que ocorre é que o form fica sem dados apos o evento atualizar e apresentando os dados como filtrados, de acordo com o botão "filtrado" da barrinha de navegação. O que poderia ser?

Avelino meu idolo, obrigado pela atenção e desculpe pela demora em retornar, to estudando feito louco. Segue o codigo abaixo:

Código:

Option Compare Database
Dim booliberaCbo As Boolean

Private Sub btRemoverFiltro_Click()
'DoCmd.RunCommand acCmdRemoveFilterSort
DoCmd.ShowAllRecords
End Sub

Private Sub Código_AfterUpdate()
Me.txtCódigoCliente = DLookup("CódigoCliente", "ConsultaMensalidadesCrit", "Nome='" & Me!txtNome & "'")
End Sub

Private Sub combo_AfterUpdate()
Dim filtro As String
filtro = "Nome = """ & Me!combo.Column(1) & """"
DoCmd.ApplyFilter , filtro
'---------------------------------------
'Outra forma de aplicar a filtragem
'---------------------------------------
'Me.Filter = filtro
'Me.FilterOn = True
'---------------------------------------
Me.btRemoverFiltro.SetFocus
Me!combo = Null
End Sub
Private Sub combo_GotFocus()
Dim strsql As String
strsql = "SELECT CódigoCliente,Nome FROM ConsultaRef ORDER BY Nome;"
Me!combo.RowSource = strsql
booliberaCbo = Me.AllowEdits
If booliberaCbo = False Then Me.AllowEdits = True
End Sub

Private Sub combo_LostFocus()
Me.AllowEdits = booliberaCbo
End Sub

Private Sub Form_Load()

End Sub

Private Sub txtCódigoCliente_GotFocus()

End Sub

Private Sub txtNome_AfterUpdate()
Me.Código = Contador("Código", "TabMensalidade")
Me.Código.Value = numeroLivre("TabMensalidade", "Código")
End Sub

Obrigado mestre.