strReportFile = gRptPath 
rpt.Connect = gstrConnect
strQuery = "查询语句"
rpt.ReportFileName = strReportFile
rpt.SelectionFormula = strQuery
rpt.Action = 1