Private Sub Command2_Click()
    '检查正确的密码
    If txtPassword = "sa" Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = False
        Form1.Hide
        form5.Show
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

我已经设置了错误的密码能登进去可以为什么还会错呀.

If txtPassword.text = "sa" Then

什么错误?不明白你说的?

看2L..