Option Compare Database
Private PswErr As Integer

Private Sub Command4_Click()

    If IsNull(Me.密码) Then
        Me.密码.SetFocus
    ElseIf Me.密码 <> "这里取你设置的密码值" Then
        PswErr = PswErr + 1
        If PswErr = 5 Then
            MsgBox "密码连续出错，现中止校验！"
            DoCmd.Close acForm, Me.Name
            Exit Sub
        End If
        Beep
        MsgBox "密码输入有误，请检查！"
        Me.密码.SetFocus
    Else
        MsgBox "密码校验通过."
        '通过后的代码略
    End If

End Sub