Как исправить ошибку «неверная внешняя процедура»?

Question

Я кодирую в VB для системы управления студентами, и как только я пытаюсь получить, я получаю ошибку "недействительная процедура извне".

Вот код:

Форма входа

Option Explicit
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim constr As String

Private Sub cmdCancel_Click()
 'set the global var to false '
    'to denote a failed login '

    LoginSucceeded = False
    Me.Hide

End Sub