女生学什么专业好找工作:求登陆窗体的vb代码

Private Sub CmdLogin_Click()
Static sTime As Integer
Dim SQL As String
Dim i As Integer
If TxtUser.Text = "" Then
Exit Sub
End If
If TxtPass.Text = "" Then
Exit Sub
End If
SQL = "select * from usetable where 用户= """ & TxtUser.Text & """"
OpenDBFile
OpenRS (SQL)
If Not gRst.EOF Then
If gRst("密码") = TxtPass.Text Then
MDIForm1.Show
Else
sTime = sTime + 1
If sTime = 3 Then
MsgBox "连续三次登陆错误，程序退出."
Unload Me
End If
MsgBox "对不起密码错误，请重新输入！", vbInformation + vbOKOnly, "警告"
TxtPass.Text = ""
TxtPass.SetFocus
CloseRS
Exit Sub
End If
Else
sTime = sTime + 1
If sTime = 3 Then
MsgBox "连续三次登陆错误，程序退出."
Unload Me
End If
MsgBox "对不起，用户名错误，请重新输入！", vbInformation + vbOKOnly, "警告"
TxtUser.Text = ""
TxtUser.SetFocus
CloseRS
Exit Sub
End If
CloseRS
End Sub