[Resolvido]Critério de Consulta

Em um formulário de pesquisa, quero digitar parte do nome de um produto em uma caixa de texto, onde o relatório me retorna somente os produtos com esse critério.
Será que alguém pode me ajudar?

Obrigado!

Tente adaptar para seu projeto, costumo usar caixas de opção !

Segue modelo em anexo.

Private Sub Pesquisa_Change()
On Error GoTo m
 Dim PARTEPESQUISA As String

   PARTEPESQUISA = Pesquisa.Text

 If PARTEPESQUISA <> "" Then
 'Inicia
   'Forms![Pesquisa]![GrdDados].Form.Filter = "Produto Like '" & PARTEPESQUISA & "*'"
   'Forms![Pesquisa]![GrdDados].Form.FilterOn = True
 'Termina
   'Forms![Pesquisa]![GrdDados].Form.Filter = "Produto Like '*" & PARTEPESQUISA & "'"
   'Forms![Pesquisa]![GrdDados].Form.FilterOn = True
 'Contém
   Forms![Pesquisa]![GrdDados].Form.Filter = "Produto Like '*" & PARTEPESQUISA & "*'"
   Forms![Pesquisa]![GrdDados].Form.FilterOn = True
 'Não contém
   'Forms![Pesquisa]![GrdDados].Form.Filter = "Produto Not Like '*" & PARTEPESQUISA & "*'"
   'Forms![Pesquisa]![GrdDados].Form.FilterOn = True
 Else
   Forms![Pesquisa]![GrdDados].Form.FilterOn = False
 End If
m:
End Sub

Muito obrigado.
Eu estava tentando fazer com relatório. Mas, deu certo com subformulário.