How to create Crystal Reports featuring barcode images using SQL Stored Procedure in .NET Windows Forms

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'Getting Customers from DB

    Dim cnn As New System.Data.SqlClient.SqlConnection("Data Source=neo3\sql2000;Initial Catalog=Northwind;Integrated Security=True")
    Dim cmd As New System.Data.SqlClient.SqlCommand()
    cmd.Connection = cnn
    cmd.CommandType = CommandType.StoredProcedure
    cmd.CommandText = "GetCustomers"
    Dim da As New System.Data.SqlClient.SqlDataAdapter(cmd)
    Dim dsCustomers As New DataSet()
    da.Fill(dsCustomers)

    'Create an instance of Barcode Professional

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

    bcp.Symbology = Neodynamic.WinControls.BarcodeProfessional.Symbology.Code39
    bcp.Extended = True
    bcp.AddChecksum = False
    bcp.BarHeight = 0.4F
    bcp.QuietZoneWidth = 0

    Dim row As DataRow
    'Update Customers DataTable with barcode image

    For Each row In dsCustomers.Tables(0).Rows
        'Set the value to encode

        bcp.Code = row("CustomerID").ToString()
        'Generate the barcode image and store it into the Barcode Column

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

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

    Dim report As New CrystalReportBarcode()
    report.SetDataSource(dsCustomers.Tables(0))

    Me.CrystalReportViewer1.ReportSource = report    
End Sub

private void Form1_Load(object sender, EventArgs e)
{
    //Getting Customers from DB
    System.Data.SqlClient.SqlConnection cnn = new System.Data.SqlClient.SqlConnection(@"Data Source=neo3\sql2000;Initial Catalog=Northwind;Integrated Security=True");
    System.Data.SqlClient.SqlCommand cmd = new System.Data.SqlClient.SqlCommand();
    cmd.Connection = cnn;
    cmd.CommandType = CommandType.StoredProcedure;
    cmd.CommandText = "GetCustomers";
    System.Data.SqlClient.SqlDataAdapter da = new System.Data.SqlClient.SqlDataAdapter(cmd);
    DataSet dsCustomers = new DataSet();
    da.Fill(dsCustomers);

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

    //Update Customers DataTable with barcode image
    foreach (DataRow row in dsCustomers.Tables[0].Rows)
    {
        //Set the value to encode
        bcp.Code = row["CustomerID"].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
    CrystalReportBarcode report = new CrystalReportBarcode();
    report.SetDataSource(dsCustomers.Tables[0]);

    this.crystalReportViewer1.ReportSource = report;
}