Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空，请输入用户名！", vbCritical, "提示"
Else
rs.MoveFirst
rs.Find "uname= '" & Trim(Text1.Text) & "' "
If rs.EOF Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
MsgBox "用户名输入错误，请选择！", vbCritical, "提示"
Else
If Text2.Text = "" Then
MsgBox "密码不能为空，请输入密码！", vbCritical, "提示"
Text2.Text = ""
Text2.SetFocus
ElseIf rs.Fields("upwad") = Text2.Text Then
Select Case rs.Fields("bright")
Case 0
If Combo1.Text = "管理员" Then
MsgBox "管理员已成功登录！", vbExclamation, "提示"
Form1.Hide
Form2.Show
Else
MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
End If
Case 1
If Combo1.Text = "游客" Then
MsgBox "游客已成功登录！", vbExclamation, "提示"
Form1.Hide
Form2.Show
Else
MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
End If
End Select
Else
MsgBox ("密码输入错误，请重新输入！"), vbCritical, "提示"
Text2.Text = ""
Text2.SetFocus
End If
End If
End If
End Sub。