Close report code not working (1 Viewer)

Private Sub Report_Open(Cancel As Integer)
     Dim strPasswd

    strPasswd = InputBox("Enter Password", "Restricted Form")

    'Check to see if there is any entry made to input box, or if
    'cancel button is pressed. If no entry made then exit sub.

    If strPasswd = "" Or strPasswd = Empty Then
        MsgBox "No Input Provided", vbInformation, "Required Data"
        DoCmd.Close acReport, "Month_rp", acSaveNo
        Exit Sub
    End If

    'If correct password is entered open Employees form
    'If incorrect password entered give message and exit sub

    If strPasswd = "fred" Then
       
    MsgBox "Password Correct!"
    
  Else
        MsgBox "Sorry, you do not have access to this report", _
               vbOKOnly, "Important Information"
        
        DoCmd.Close acReport, "Month_rp", acSaveNo
        Exit Sub
    End If
    
End Sub