Private Sub cmdEnter_Click() Dim name As String, pass As String name=Nz(Me!tUser) pass=Nz(Me!tPass) ’******************* Add ******************* (13) ’******************* Add ******************* MsgBox "密码输入正确, 欢迎进入系统!", vbOKOnly+vbCritical, "欢迎" DoCmd.Close Else MsgBox "密码错误!", vbOKOnly ’显示消息框 Me!tUser="" ’使文本框清空 Me!tPass="" ’******************* Add ******************* (14) ’******************* Add ******************* End If End Sub Private Sub cmdQuit_Click() ’******************* Add ******************* (15) ’******************* Add ******************* End Sub