How to create Crystal Reports featuring barcode images using Typed DataSet in ASP.NET

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    'Filling Products DataTable from DB

    Dim ta As New NorthwindTableAdapters.ProductsTableAdapter()
    Dim dt As New Northwind.ProductsDataTable()
    ta.Fill(dt)

    'Create an instance of Barcode Professional

    Dim bcp As New Neodynamic.WebControls.BarcodeProfessional.BarcodeProfessional()
    'Barcode settings

    bcp.Symbology = Neodynamic.WebControls.BarcodeProfessional.Symbology.Code39
    bcp.Extended = true
    bcp.AddChecksum = false
    bcp.BarHeight = 0.4f

    'Append fictitious Company internal prefix

    Dim prodPrefix As String = "12345"

    Dim row As Northwind.ProductsRow    
    For Each row In dt.Rows
        'Set the value to encode

        bcp.Code = prodPrefix + row.ProductID.ToString()
        'Generate the barcode image and store it into the Barcode Column

        row.Barcode = bcp.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png)
    Next

    'Create a AveryMailLabels report object
    'and set its data source with the DataSet

    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
    Dim rptFile As String = Server.MapPath("CrystalReportBarcode.rpt")
    report.Load(rptFile)
    report.SetDataSource(CType(dt, DataTable))
     
    Me.CrystalReportViewer1.ReportSource = report
End Sub

protected void Page_Load(object sender, EventArgs e)
{
    //Filling Products DataTable from DB
    NorthwindTableAdapters.ProductsTableAdapter ta = new NorthwindTableAdapters.ProductsTableAdapter();
    Northwind.ProductsDataTable dt = new Northwind.ProductsDataTable();
    ta.Fill(dt);

    //Create an instance of Barcode Professional
    Neodynamic.WebControls.BarcodeProfessional.BarcodeProfessional bcp = new Neodynamic.WebControls.BarcodeProfessional.BarcodeProfessional();
    //Barcode settings
    bcp.Symbology = Neodynamic.WebControls.BarcodeProfessional.Symbology.Code39;
    bcp.Extended = true;
    bcp.AddChecksum = false;
    bcp.BarHeight = 0.4f;

    //Append fictitious Company internal prefix
    string prodPrefix = "12345";

    //Update DataTable with barcode image
    foreach (Northwind.ProductsRow row in dt.Rows)
    {
        //Set the value to encode
        bcp.Code = prodPrefix + row.ProductID.ToString();
        //Generate the barcode image and store it into the Barcode Column
        row.Barcode = bcp.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png);
    }

    //Create a report object
    //and set its data source with the DataSet
    CrystalDecisions.CrystalReports.Engine.ReportDocument report;
    report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
    string rptFile = Server.MapPath("CrystalReportBarcode.rpt");
    report.Load(rptFile);
    report.SetDataSource((DataTable)dt);

    this.CrystalReportViewer1.ReportSource = report;
}