Query()

Returns the Query object currently selected on the Section Report. For more information about this object, please check chapter Queries. The next script contains an example of using this method.

Sub Rect_Click()
  Set Query = Application.LoadReport("[Report3]").Query()
  Query.SetVariableValue("Key1", "XYZ")
End Sub