If CStr(Me![密码]) = STemp Then
UserID = Me![用户编号]
DoCmd.Close , , acSaveNo
Else
MsgBox "您输入的密码不正确!", vbCritical, "密码错误"
Me.Requery
Me![密码].SetFocus
End If
End If
End If
Exit_用户登录_Click:
Exit Sub
Err_用户登录_Click:
MsgBox Err.Description
Resume Exit_用户登录_Click
End Sub