Return sem GoSub

Pessoal estou com um problema em um botão ele estava funcionando perfeitamente, derrepente ao clicar no mesmo aparece essa mensagem "Return sem GoSub" Alguém pode me ajudar?

Private Sub BTN_GRAVAR_Click()
If TXT_SENHA = TXT_SENHA_CONF Then
Me.Requery
Else
MsgBox ("SENHA NÃO CONFERE")
TXT_SENHA = ""
TXT_SENHA_CONF = ""
TXT_SENHA.SetFocus
End If
End Sub

É um chute, rsrs, mas tente isso

Código:

Private Sub BTN_GRAVAR_Click()
    If TXT_SENHA = TXT_SENHA_CONF Then
        Me.Requery
    Else
        MsgBox "SENHA NÃO CONFERE"
        TXT_SENHA = ""
        TXT_SENHA_CONF = ""
        TXT_SENHA.SetFocus
    End If
End Sub


Retirar os parênteses, pois todas vez que você o utiliza, você implicitamente informa que é esperado retorno de valor pela função. As possibilidades ao chamar a função :

Variavel = Funcao ( parametros )
[ É esperado retorno de valor e se não atribuir o valor a uma variável ocorre erro ]

Call Funcao( parametros )
[ Ao utilizar o comando Call você pode chamar a função mantendo os parenteses, porém, implicitamente você diz para "ignorar" retorno ]

Funcao parametros
[Entende-se implicitamente que o retorno pode ser "ignorado"]

Philipp Moreira,

Obrigado pelos esclarecimentos.

Mas fiz algo diferente e deu certo.

Compilei o código novamente e mandei reparar o banco.

Não sei lhe dizer o porque mais deu certo.

Abs

que bom! rsrs

por favor, marque o tópico com resolvido.