Busca em SubForm

Boa tarde a todos, estou usando este Código abaixo que funciona certinho depois de digitar numa caixa de texto não acoplada e dando enter ela acha certinho, só que no exemplo que baixei conforme a gente ia digitando ia aparecendo os dados,  gostaria se possível dicas de como posso resolver isso Obrigado a todos

Código:

Private Sub BUSCA_LEILOES_AfterUpdate()
Dim C As String, X As String
X = Me.BUSCA_LEILOES.Text
C = " where ID_ARREMATANTE like '*" & X & "*' or ARREMATANTE like '*" & X & "*' or ARREMATANTE like '*" & X & "*' or CIDADE like '*" & X & "*' or ESTADO like '*" & X & "*' or CNPJ_CPF like '*" & X & "*' or FONE like '*" & X & "*'"
Me.SUB_ARREMATANTE.Form.RecordSource = "select * from ARREMATANTE" & C
'Me.Form.RecordSource = " select * from pagar" & C
End Sub

Segue o código que uso p/ um campo Texto, ao digitar ele filtra uma listbox.

Código:

Dim txtName As String
txtName = Me.TxtPesquisaProduto.Text
If txtName = "" Then
  Me.ListaProduto.RowSource = _
  "SELECT ConsultaProdutosAtivos.CodProduto,ConsultaProdutosAtivos.Produto,ConsultaProdutosAtivos.Referencia,ConsultaProdutosAtivos.ValorUnit" _
  & " FROM ConsultaProdutosAtivos" _
  & " ORDER BY ConsultaProdutosAtivos.Produto;"
Else
  Me.ListaProduto.RowSource = _
  "SELECT ConsultaProdutosAtivos.CodProduto,ConsultaProdutosAtivos.Produto,ConsultaProdutosAtivos.Referencia,ConsultaProdutosAtivos.ValorUnit" _
  & " FROM ConsultaProdutosAtivos" _
  & " WHERE (((ConsultaProdutosAtivos.Produto) Like '" & txtName & "%'))" _
  & " ORDER BY ConsultaProdutosAtivos.Produto;"
End If

È só adaptar p/ testar.

Vlw.

Galera obrigado pela atenção mas cometi uma garfi descobri oque estava errado

Errado
Private Sub BUSCA_LEILOES_AfterUpdate()

Certo
Private Sub BUSCA_LEILOES_Change()

Obrigado a todos