Formulario de pesquisa com 3 filtros

Boa noite grandes mestres!

Venho mais uma vez recorrer a ajuda deste grande fórum.
Tenho um Banco onde cadastro Pedidos de Exames, nele segue a seguinte estrutura:

Tabela: tabPEcad
Campos: [IdItem] [Status] [NControle] [Paciente] [Data] [Ano] [MesPara]



O meu problema é o seguinte, por meio deste formulário de pesquisa, gostaria de fazer uma busca na tabela onde me retornasse os dados do campo [Ano] = Me.txAno (2019) e do Campo [MesPara] = Me.txMes (Dezembro) e que dentro dessa filtragem da tabela, que eu pudesse buscar um nome de um paciente.

Existe essa possibilidade?

Tentei de diversas vezes e não consegui, sempre me retorna ou todos os anos, ou todos os meses, resumindo, não consigo por meio de Select fazer uma busca com mais de 3 campos.
Não deu certo colocar dois "AND´s" no código, apresenta erro.

Segue o código do botão "Buscar"

Código:

Dim CarregaBusca2 As String
                
        Me.txPesq.SetFocus
        'Carrega os dados no Subformulario sem pesquisa
        CarregaBusca2 = "SELECT Selecionar, Impresso, Status, IdItem," & _
        " Ncontrole, Paciente, DataPedido, Retorno, PedidoParaMes, TipoExame, Item, Lote, Ano" & _
        " FROM TabPEItem" & _
        " WHERE Ano = '" & Me.txAno & "' AND Paciente LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
            " OR Ncontrole LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
            " OR PedidoParaMes LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
            " OR TipoExame LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
            " OR Item LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
            " ORDER BY IdItem DESC"
    
        Me.frmPEHomeSub.Form.RecordSource = CarregaBusca2
        
        Forms!frmPEHome!frmPEHomeSub.Form!Selecionar.ControlSource = "Selecionar"
        Forms!frmPEHome!frmPEHomeSub.Form!Impresso.ControlSource = "Impresso"
        Forms!frmPEHome!frmPEHomeSub.Form!Status.ControlSource = "Status"
        'Forms!frmPEHome!frmPEHomeSub.Form!IdItem.ControlSource = "IdItem"
        Forms!frmPEHome!frmPEHomeSub.Form!Ncontrole.ControlSource = "Ncontrole"
        Forms!frmPEHome!frmPEHomeSub.Form!Paciente.ControlSource = "Paciente"
        Forms!frmPEHome!frmPEHomeSub.Form!DataPedido.ControlSource = "DataPedido"
        Forms!frmPEHome!frmPEHomeSub.Form!Retorno.ControlSource = "Retorno"
        Forms!frmPEHome!frmPEHomeSub.Form!PedidoParaMes.ControlSource = "PedidoParaMes"
        Forms!frmPEHome!frmPEHomeSub.Form!TipoExame.ControlSource = "TipoExame"
        Forms!frmPEHome!frmPEHomeSub.Form!Item.ControlSource = "Item"
        'Forms!frmPEHome!frmPEHomeSub.Form!ValorTotalPedido.ControlSource = "ValorTotalPedido"
        Forms!frmPEHome!frmPEHomeSub.Form!Lote.ControlSource = "Lote"
        Forms!frmPEHome!frmPEHomeSub.Form!Ano.ControlSource = "Ano"
        Me.frmPEHomeSub.Requery
        Me.txPesq.SetFocus


Como posso chegar a esse resultado que necessito?

Bom dia, se possivel coloque uma parte do seu bd

att;

Sidney

Bom dia Sidney!

Segue parte do BD para analise.

dl=0]https://www.dropbox.com/s/55cu09abthnhvg9/SysFatuMaximoAccess.zip?dl=0[/url]

Agradeço desde já a atenção!