Public Sub PreviewPickList(ByVal PickListNo As Integer, Optional ByVal ShopOrderId As Integer = 0)
    Dim cryRpt As New ReportDocument
    cryRpt.Load(Application.StartupPath & "InventoryPickListReportCR.rpt")
    PickListViewer.ReportSource = cryRpt

    Dim dtPickList As New DataTable
    dtPickList = DTEngines.GetPickList(PickListNo, ShopOrderId)

    cryRpt.SetDataSource(dtPickList)
    PickListViewer.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None
    PickListViewer.Refresh()
    Me.Show()
End Sub

cryRpt.Load("PickListReportCR.rtp")

cryRpt.Load(Application.StartupPath & "PickListReportCR.rpt")

dim doc as new ReportDocument
doc.Load(Server.MapPath("PickListReportCR.rpt"))
doc.SetDatabaseLogon(ReportServerDSUserName, ReportServerDSPassword,ReportServerDomain, "DatabseName", false)
CrystalReportViewer1.ReportSource = doc;