'ждать ОК или Отмену от пользователя
        Do While IsLoaded(cstrLoginFormName)
            If Not Application.Forms(cstrLoginFormName).Visible Then
                'форму скрыли, значит, пользователь нажал на ОК

                'ещё что нибудь тут можно сделать...
                Exit Do
            End If
            DoEvents 
        Loop

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed =  0 
    Const conDesignView =  0 
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
    
End Function