一个登录窗体中,登陆错误超过三次自动退出的vb代码怎么写啊

Question

用vb和ado做了一个登录窗口，现在要求的是三次登陆错误后要自动退出窗体，我的代码是这么写的，哪位高手能帮我找出错误啊。。。非常感谢

Private Sub Command1_Click()
Dim times As Integer
Adodc1.RecordSource = "select * from 数据 where username='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
times = times + 1
If times >= 3 Then
MsgBox "您没有权限登录此系统"
Unload Me
End If

Else
If Text2.Text = Adodc1.Recordset.Fields("password") Then
Form2.Show
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Answer 1

private times as integer
private sub form_load()
times = 0
end sub
Private Sub Command1_Click()
If times >= 3 Then
MsgBox "您没有权限登录此系统"
Unload Me
End If

Adodc1.RecordSource = "select * from 数据 where username='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
times = times + 1

Else
If Text2.Text = Adodc1.Recordset.Fields("password") Then
Form2.Show
Else
times = times + 1
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub