[Resolvido]Select nao reconhece funcao

Ola povo,
Estou fazendo uma consulta usando uma função como parametro:

1 - Definição da variável.
Option Compare Database
Public WVar_usuario As String

2 - Definição da função
Option Compare Database
Public Function fncNmUsuario() As String
  fncNmUsuario = WVar_usuario
End Function

3 - Query construida
SELECT SOCEDUC.COD_SOCEDU, SOCEDUC.UAMA_SOCEDU, SOCEDUC.NOME_SOCEDU, SOCEDUC.ATENDENTE_SOCEDU
FROM ATENDENTE INNER JOIN SOCEDUC ON ATENDENTE.COD_ATDE = SOCEDUC.ATENDENTE_SOCEDU
WHERE (((SOCEDUC.ATENDENTE_SOCEDU)=([SOCEDUC].[ATENDENTE_SOCEDU])) AND ((ATENDENTE.NOME_ATDE)=fncNmUsuario()));

4 - Erro ao testar em modo folha de dados
Função 'fncNmUsuario' indefinida na expressão.

Pesquisei na Internet e vi que tenho que abrir qualquer módulo e assinalar uma biblioteca em "Ferramentas" - "Referências"? São muitas disponíveis.


Agradeço a ajuda

Já detectei o erro,
Não posso ter nome de módulo igual a nome de função.

Alterei o nome do módulo.