[Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

Prezados, escrevi i seguinte código:

Código:

StrSQL = "SELECT TOP 1 [data Abertura], [Nº controle], left([Nº controle], len([Nº controle])-5)*1 AS [numCont] " & _
"FROM DemandaCad " & _
"WHERE (year([data abertura]) = 2019 And (Not (DemandaCad.[Nº Controle]) Is Null)) " & _
"ORDER BY left([Nº controle], len([Nº controle])-5)*1 DESC"


Ele funciona direito, porém, gostaria de inserir o critério do ano "2019" em um campo de formulário, por exemplo, [Forms]![frmDemandaCad]![Ano]. So que quando coloco isso, apresenta erro de parâmetros insuficientes? Como corrijo o código?

Outra dúvida: quanto a consulta não tem nenhum dado, também apresenta erro, informando nenhum registro atual. Como tratar esse erro? Obs. O resultado da consulta está em uma string.

Obrigado

Bom dia
Deve apresentar como utiliza o código para tratar o erro
Também não indicou como está a colocar o parâmetro, que será
StrSQL = "SELECT TOP 1 [data Abertura], [Nº controle], left([Nº controle], len([Nº controle])-5) AS [numCont] " & _
"FROM DemandaCad WHERE year([data abertura]) =" &  [Forms]![frmDemandaCad]![Ano] & " And Not IsNull(DemandaCad.[Nº Controle]) " & _
"ORDER BY left([Nº controle], len([Nº controle])-5) DESC"

Bom dia!
Tentei o código mas continua o erro. Meu problema está sendo quando quero um critério que está em formulário. Não estou sabendo descrever no WHERE como buscar no formulário. Inserir um arquivo com o erro. Quando o critério está no código, da certo, mas quando busca no form, aí não funciona.

Onde colocou o código? não vejo

No evento após atualizar do campo status. Neste caso, a ideia é apresentar na lista somente os registros com o status correspondente com o selecionado.

Private Sub FiltroStatus_AfterUpdate()

'Refresh

  ListaDemanda.ColumnCount = 4
  ListaDemanda.ColumnHeads = True
  ListaDemanda.ColumnWidths = "0 cm; 7 cm; 1,9 cm; 3 cm"
  ListaDemanda.RowSourceType = "Table/Query"
  ListaDemanda.RowSource = "SELECT COD, DESCRIÇÃO, [Nº CONTROLE] AS [Nº], STATUS " & _
  "FROM demandacad " & _
  "WHERE STATUS ='" & Me.FiltroStatus & _
  "' ORDER BY [nº controle], descrição"
  
  Refresh
End Sub

Não sei o que ocorre, mas não funciona o código. Segue em anexo para verificar...

Não copiou o texto. Tem de copiar o texto que coloquei

Código:

ListaDemanda.RowSource = "SELECT COD, DESCRIÇÃO, [Nº CONTROLE] AS [Nº], STATUS " & _[size=12][/size]
  "FROM demandacad " & _[size=12][/size]
  "WHERE STATUS ='" & Me.FiltroStatus & _[size=12][/size]
  "' ORDER BY [nº controle], descrição"

Estranho, continua com o erro...
Tem como inserir no BD anexado, por gentileza?

Bastava ter seleccionado o código e copiado, mas veja

Ahh, entendi. Um pequeno detalhe despercebido que faz toda diferença. Resolveu o problema.

Obrigado Amigo.