[Resolvido]Como aplicar um filtro em um subformulário

E ai pessoal,
Eu estou tentando aplicar em um filtro em um formulário através de uma caixa de texto, mas na hora que eu insiro o texto aparece um erro dizendo que o assistente não encontrou o formulário.

Estou usando este código:


Private Sub Texto4_Change()

Me.Filter = "Código = '" & Forms!SubProdutos!Código & "'"
Me.FilterOn = True

End Sub

Dim frm As Form
Set frm = Forms![SubProdutos].Form
frm.Filter = "[Código]='" & me.Texto4 & "'"
frm.FilterOn = True
frm.Requery

Vlw erinaldo, mas não deu muito certo com esse código não, ficou aparecendo um erro dizendo que não foi possivel localizar o formulário.
Mas fazendo varias buscas aqui no forum consegui    obrigado pela ajuda.

.