[Resolvido]Apply Filter não reconhece parâmetro

Bom dia!
Declarei uma variável Global chamada vAnoGeral que recebe o ano a ser usado nos formulários do Sistema. Quando abro um determinado formulário, uso uma outra variável privada que igualo a esse valor da Global. Tudo funciona normal inclusive exibo os valores com o MsgBox de cada uma delas. O problema é quando vou usar o Apply Filter para filtrar somente os registros daquele ano. Quando faço a comparação do campo do formulário chamado ano_dados com um valor fixo, por exemmplo "2017", funciona normal como a seguir:

DoCmd.ApplyFilter , "ano_dados = '2017'"

Mas quando tento colocar o valor da variável privada vanoatual que criei ou da Global vAnoGeral, não funciona:

Private Sub Form_Load()
Dim vanoatual As String
   vanoatual = vAnoGeral
   DoCmd.ApplyFilter , "ano_dados = vanoatual"
End Sub

Aparece uma caixa de mensagem no formulário pedindo pra eu digitar o valor do parâmetro. Ao digitar esse valor que seria o ano, funciona o filtro normalmente.
Agradeço pela atenção de todos.

Ola seja bem vindo ao forum;

Se é uma variavel de texto, tem de a colocar entre aspas simples;

Código:

DoCmd.ApplyFilter , "ano_dados ='" & vanoatual & "'"

Bom dia meu amigo, poderia postar o projeto para melhor ajuda-lo ?

Att

Obrigado JPaulo. Tinha passado uma tarde toda sem conseguir resolver esse problema. Muito Obrigado!

Obrigado pelo retorno o forum agradece.