ช่วยทีค่ะ ติดตรงการนำค่า parameters ใน VB ไปแสดงใน MS Report Builder 3.0 แนะนำด้วยค่ะ

dt_UseDrug.Columns.Clear()
        dt_UseDrug.Columns.Add("ln_CassetteNo", GetType(String))
        dt_UseDrug.Columns.Add("DrugCd", GetType(String))
        dt_UseDrug.Columns.Add("DrugName", GetType(String))
        dt_UseDrug.Columns.Add("DispensedDose", GetType(String))
        dt_UseDrug.Columns.Add("PatientName", GetType(String))
        '------------------RP-------------------------
        ds.Tables().Clear()
        '********************************************
        Dim TS As String = cbTSH.Text & ":" & cbTSM.Text
        Dim TE As String = cbTEH.Text & ":" & cbTEM.Text
        StartDate = DTS.Value.ToString("yyyy/MM/dd")
        EndDate = DTE.Value.ToString("yyyy/MM/dd")
        TimeStart = TS
        TimeEnd = TE
        Dim DSP As Date = StartDate
        Dim DEP As Date = EndDate
        Dim myformat() As String = {"yyyy-MM-dd"}
        'Dim SDate, EDate As String
        Dim i As Integer
        For i = 0 To myformat.Length - 1
            StartDate = DSP.ToString(myformat(i), DateTimeFormatInfo.InvariantInfo)
            EndDate = DEP.ToString(myformat(i), DateTimeFormatInfo.InvariantInfo)
            'Dim AddY As Date = Now.AddYears(-543)
            'MessageBox.Show(StartDate)
            'MessageBox.Show(EndDate)
        Next i
        '********************************************
        'ds = clsP.UseDrug(StartDate, EndDate)
        ds = clsP.UseDrug(StartDate, EndDate, TimeStart, TimeEnd)
        If ds.Tables(0).Rows.Count = 0 Then MsgBox("ไม่มีข้อมูล") : Exit Sub
        dt_UseDrug.Rows.Clear()
        'Dim courow As Integer
        'courow = ds.Tables(0).Rows.Count
        'For i As Integer = 0 To courow - 1
        For i = 0 To ds.Tables(0).Rows.Count - 1
            dt_UseDrug.Rows.Add(New Object() {ds.Tables(0).Rows(i).Item("ln_CassetteNo").ToString, _
                                              ds.Tables(0).Rows(i).Item("DrugCd").ToString, _
                                              ds.Tables(0).Rows(i).Item("DrugName").ToString, _
                                              ds.Tables(0).Rows(i).Item("DispensedDose").ToString})
        Next
        '---------------------------------------------
        ds_UseDrug.Tables().Clear()
        ds_UseDrug.Tables.Add(dt_UseDrug)
        '*************************************************************
        frm_ShowRP.ReportViewer1.LocalReport.DataSources.Clear()
        frm_ShowRP.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DSet_UseDrug", ds_UseDrug.Tables("DSet_UseDrug")))
        frm_ShowRP.ReportViewer1.LocalReport.ReportPath = "D:\Proud_UseDrug.rdlc"
        frm_ShowRP.ReportViewer1.RefreshReport()
        frm_ShowRP.Show()
        '*************************************************************

Dim objParameter As ReportParameter
zobjParameter = New ReportParameter(strParamName, strParamValue)

Me.objReportViewer.ServerReport.SetParameters(zobjParameter)

'Declaration
Public Sub SetParameters ( _
	parameter As ReportParameter _
)
'Usage
Dim instance As Report
Dim parameter As ReportParameter
instance.SetParameters(parameter)