Query()

Returns a Query object currently selected in a Report. For more information about this object, please check the Query chapter. Example:

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