[Resolvido]Alterar código

Ola pessoal,tenho essa função que filtro atravez de uma combo o campo componente de um formulario continuo,mas pra mim colocar outra combo pra filtrar outro campo como é que altero esse código.No evento após atualizar da combo eu tambem coloco escrito "Filtro"

Public Sub filtro()
Dim f1 As Variant

If Me.CombComp <> "" Then
f1 = "[Componente] Like '*" & Me.CombComp & "*'" 'Busca Campo1
Else
f1 = ""
End If

Me.Filter = f1
Me.FilterOn = True
End Sub

Consegui resolver.
Copiei esse código mudando os objetos.