Access VisualBasic Script

Private Sub Report_Activate()
         DoCmd.ShowToolbar "AllOrders", acToolbarYes
End Sub