Access VisualBasic Script

MsgBox "There is no data for this report. Canceling report..."
    Cancel = True
End Sub