[AccessD] Report Cancel Issue

The message box is OK.

I am trying to kill the " The ReportOpen action was canceled box"  is
unwelcome. How can I make it go away.

Private Sub Report_NoData(Cancel As Integer)
    Dim lngRetval As Long
   DoCmd.SetWarnings False
   
    lngRetval = MsgBox( _
        "There are no products requiring a QAIP Form in for this Purcase
Order.", _
        vbOKOnly + vbInformation + vbSystemModal + vbDefaultButton1, _
        "No QAIP for this PO")

    Select Case lngRetval
        Case vbOK
        Cancel = True
            End Select
            
       DoCmd.SetWarnings True

Thanks


JOE HECHT
LOS ANGELES CA 
 jmhla at earthlink.net