Query()

Retorna o objeto Consulta atualmente selecionado no Relatório. Para mais informações a respeito deste objeto, veja o capítulo Consultas. Exemplo:

Sub Rect_Click()
  Set Query = Application.LoadReport("[Relatório3]").Query()
  Query.SetVariableValue("Chave1", "XYZ")
End Sub