如何实现在登录时，输入三次错误的密码，就自动退出？请高手解决？

Question

做一个窗体变量，
每输入一次密码加1，大于3程序就END

Answer 1

Very Very Easy!
 [email protected] 

Answer 2

Private Sub cmdOk_Click()
    'lngNum是窗体级变量
    If lngNum >= 3 Then
      MsgBox "非法登录！", 16, App.Title
      End
    End If
    
    If Text1.Text="akjpoi3900983" Then   '能够登录成功
        Unload Me
    Else
        lngNum = lngNum + 1
        MsgBox "密码或者用户名输入错误，或者登录的科室不正确，再试一次！", 48
    End If
    
    
End Sub

Answer 3

先有个数据库。 
ado,熟吧
简单点：
 Dim res As New ADODB.Recordset
    res.Open strSql,db     '(db明白吧， strSql是你要求的sql的语句）
    If res.EOF Then
        Static intTryTimes As Long
        
        If intTryTimes = 3 Then
            MsgBox "你试得太多!"
            LoginSucceeded = False
            intTryTimes = 0
            Me.Hide
            GoTo ExitSub
        Else
            intTryTimes = intTryTimes + 1
            MsgBox "登陆失败!"
            GoTo ExitSub
        End If
    else 
        LoginSucceeded = True
        hide
  end if
ExitSub:
    On Error Resume Next
    res.Close
    Set res = Nothing
    On Error GoTo 0
   Form1.Show
End Sub

Answer 4

to foolishtiger(吴文智):吴兄,把lngNum设为静态变量不更好么?