Treeview não carrega com base em consulta utilizando critério para Filtro

Boa tarde.
Estou montando um treeview para utilizar como menu. O problema é que eu preciso que ele carregue os dados com base em uma consulta. Até ai tudo bem, mas quando eu adiciono nesta consulta um critério para filtro, baseado em um campo no formulário, da erro. Se eu retiro o critério de filtro, funciona normalmente.

Segue o Código que utilizei:

Private Sub Form_Load()

   Dim objNode As Node, strKey As String
   Dim rst As DAO.Recordset, intKey As Integer
   varHash = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
   With TreeView
   Set rst = CurrentDb.OpenRecordset("Consulta1") ' O erro acontece nesta parte
'Aparece uma mensagem de Parametros insuficientes.
'Diz que esta mensagem é gerada quando expressões ou nomes de campo desconhecidos são interpretados como parâmetros consulta.


   If rst.RecordCount > 0 Then
       While Not rst.EOF
           intKey = rst.Fields("ID").Value
           If rst.Fields("Posição") = 0 Then
               Set objNode = .Nodes.Add(, , NumberToString(intKey), rst.Fields("Menu"))
                         
           Else
               Set objNode = .Nodes.Add(NumberToString(rst.Fields("Posição")), tvwChild, NumberToString(intKey), rst.Fields("Menu"))
               
               End If
           rst.MoveNext
       Wend
                 
   End If
   End With
   rst.Close
   Set rst = Nothing
   
Error_Exit:
Exit Sub

Se alguém puder me ajudar fico agradecido, não sei mais o que fazer!

Boa tarde,

Seria mais facil se postasses aqui a sua BD ou parte onde se encontra problema...


Abraço...

OK, segue exemplo