你口令输入 Pass 就对了！楼主 我随手打的全大写你就也全大写吗 这代码你真的就一点看不明白么？

呵呵，先看看基础吧。

If (KeyAscii = 13) Then '如果输入的是回车键
If TxtPass.Text <> "Pass" Then '判断密码是否正确
If (MsgBox("密码错误", vbRetryCancel) = vbRetry) Then
'不正确，输出错误提示信息
TxtPass.Text = "" '清除文本框
TxtPass.SetFocus
Else
End
End If
Else
MsgBox "欢迎你使用本系统" '密码正确，提示你已进入系统
End '这个地方是END还能进入系统吗?应该写进入系统的代码吧
End If
End If

我刚才看你的代码了,是我搞错了,要注意输入的"Pass"的大小写就是了

好了.
谢谢各位帮助.