1、Passwordstr = Text1.Text 修改为 Passwordstr = Me.Text1
2、这两行：
Load Form2
Form2.Show 、
修改为：Docmd.openform Form2
3、Result = MsgBox("Password Denied,Please imput again.", "Visual Basic OK Only", "Error!")修改为
MsgBox"Password Denied,Please imput again."
4、 Text1.Text = "" 修改为 Me.Text1 = “”
修改了以上内容之后，你再试试！~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024