Filtro por selecao com dois parametros

' Exemplo de como filtar por selecao com dois parametros
' usando recordset e bookmark
' Created by Ronaldo X. Souza Jr

' associe o seguinte codigo no evento de um botao

dim filtro1 as string
dim filtro2 as string

'Guarda valores do campo 1 e campo 2

filtro1 = "NomeDoCampo1 = " & me.NomeDoCampo1
filtro2 = "NomeDoCampo2 = " & me.NomeDoCampo2

'Filtra campo1
'Procura pelo valor guardado da variavel filtro1
Me.RecordSet.FindFirst (filtro1)

'Aponta o formulario para o cursor que o .FindFirst Achou
Form_NomeDoFormulario.Bookmark = Me.RecordSetClone.Bookmark

'Seleciona O campo1
docmd.GoToControl "NomeDoCampo1"

'Comando usado para filtrar por selecao
DoCmd.RunCommand acCmdFilterBySelection
'Fim Filtra Campo 1

'Filtra Campo 2

Me.RecordSet.FindFirst (filtro2)
Form_NomeDoFormulario.Bookmark = Me.RecordSetClone.Bookmark
DoCmd.GoToControl "NomeDoCampo2"
DoCmd.RunCommand acCmdFilterBySelection

'Fim Filtra Campo 2