Visual Basic - CONECTAR 2 FORMULARIOS EN ACCESS

Private Sub INICIAR_SESION_Click()

On Error GoTo Err_INICIAR_SESION_Click

If IsNull(USUARIO) Then

    MsgBox "NO HA ELEGIDO UN USUARIO", vbExclamation, "INICIAR SESION"

    Exit Sub

    Else

        If USUARIO.Column(2) = CONTRASEÑA Then

            MsgBox "HA INICIADO SESION", vbInformation, "INICIAR SESION"

            DoCmd.Close

            DoCmd.OpenForm "DATOS"

                               'CODIGO PARA INABILITAR CAMPOS

                               If Me.USUARIO.Text = "USUARIO1" Then

                              Me!DATOS.Form!CIUDAD.Enabled = False

                                END IF

Else

            MsgBox "CONTRASEÑA INCORRECTA", vbExclamation, "INICIAR SESION"

            Exit Sub

        End If

End If

Exit_INICIAR_SESION_Click:

    Exit Sub

Err_INICIAR_SESION_Click:

    MsgBox Err.Description

    Resume Exit_INICIAR_SESION_Click

END SUB