Access VisualBasic Script

Private Sub Report_Deactivate()
       DoCmd.ShowToolbar "AllOrders", acToolbarNo
End Sub