如何将值传递给代码

Question

我正在创建这样的水晶报告：

Dim whereClass As String = ""

            sql = "SELECT * from v_LPO where PO_NUM = '" & txt_Po_No.Text & "'"
            ' where invoice_num='PI/2014/00001'"

            ds = New DataSet
            ds.Clear()
            ds.Tables.Clear()

            ds = Fn_Return_Dataset(sql)
            Dim slFilter As New SortedList
            slFilter.Clear()
            Dim objrpt As New frmrptengine(AppPath & "\reports\rptPurchaseOrder.rpt", ds)

            objrpt.machineName = machineName

            objrpt.Show()

在我的rptPurchaseOrder.rpt中我有一个参数字段名PONAME。我想从代码中手动将值传递给我的参数字段？在这种情况下我该怎么做？

任何帮助都非常明显..