这是啥回事呀！

　　Rpt_SReport.Connect = "dsn=ntsql;uid=sa;pwd=;dsq=unistardb"
        Rpt_SReport.Formulas(0) = "htlname='" + GVS_HtlName + "'"
        Rpt_SReport.Formulas(1) = "condition='" + " 操作员:" + GVS_Userid + "'"
        Rpt_SReport.Formulas(2) = "pdate='" + Format(Now, "yyyy-mm-dd") + "'"
        Rpt_SReport.Formulas(3) = "ptime='" + Format(Now, "hh:mm") + "'"
        Rpt_SReport.SelectionFormula = "{fguest.gst_id}=" + Str(MVL_Member_Fgst)
        Rpt_SReport.WindowLeft = 0
        Rpt_SReport.WindowTop = 0
        Rpt_SReport.WindowWidth = Screen.Width / 15
        Rpt_SReport.WindowHeight = Screen.Height / 15
        Rpt_SReport.ReportFileName = GVS_Path + "report\fguest.rpt"
        Rpt_SReport.Action = 1  '这里出错了