Filtro sobre outro filtro em formulário contínuo

Prezados, bom dia / boa tarde / boa noite.

Tenho cá comigo, essas duas filtragens abaixo, funcionando perfeitamente, porém preciso que a segunda filtragem " pegue " o resultado da primeira.
Ou uma terceira filtragem pegando o resultado das duas.

Public Sub filtro()
Dim f1 As Variant

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

Me.Filter = f1
Me.FilterOn = True
End Sub
---------------------------------------------------------------------------------------------
Public Sub filtro1()
Dim f1 As Variant

If Me.Selecionar1 <> "" Then
f1 = "[ano] Like '*" & Me.Selecionar1 & "*'" 'Busca Campo2"
Else
f1 = ""
End If

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

Desde já meus agradecimentos.

Dá pra ir concatenando...

Código:

if me.filter <> "" then
me.filter = me.filter & " and " novaFiltragem
me.filteron = true
end if

Damasceno bom dia !
Me desculpe a demora em responder.


Estava a pensar em fazer desse modo, qual a sua opinião a respeito:


No segundo filtro....
If Me.Selecionar1 <> "" Then
f1 = "[ano] Like '*" & Me.Selecionar1 & "*'" & "[proprietario] Like '*" & Me.Selecionar & "*'" 'Busca Campo2 e campo 1
Else
f1 = ""
End If

Faltou o And antes de proprietário, assim na montagem do filtro o código saberá que trata-se de dois critérios e então não dará erro de sintaxe