将参数传递给Crystal Report

Question

        Param1 = objDB.GetFieldValue(sSQL, 0)
        Param2 = objDB.GetFieldValue(sSQL, 1)
        Param3 = objDB.GetFieldValue(sSQL, 2)
        cSQL = ReportSQL
        .FillDataSet(cSQL, ReportDataSet)

        ds = .DSet

    End With

    crReportDocument.Load(RptPath & ReportFile)
    crReportDocument.SetDataSource(ds.Tables(0))
    crReportDocument.SetParameterValue("@Dibuat", Param1)
    crReportDocument.SetParameterValue("@Diperiksa", Param2)
    crReportDocument.SetParameterValue("@Disetujui", Param3)



    Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable

    CR.Visible = True
    CR.ReportSource = crReportDocument
    CR.RefreshReport()
    CR.DisplayGroupTree = False

    ds = Nothing

我想将参数传递给Crystal Report，但是它始终显示pop来插入参数，您能帮我吗？

预先感谢