If IsNull(Me.cboUserName) Then
MsgBox "请输入您的用户名!", vbQuestion, "注意"
Exit Sub
End If
If login = True Then
DoCmd.Close acForm, "登陆背景"
Me.TimerInterval = 0
Me.Visible = False
DoCmd.OpenForm "Start_Menu"
TxtPwd.Value = ""
Else
MsgBox "用户名或密码不正确!", vbCritical, "注意"
TxtPwd.Value = ""
Exit Sub
End If
DoCmd.SetWarnings True
End Sub