private void Form1_Load(object sender, EventArgs e)
{
    // load data to the data table
  this.vProductAndDescriptionTableAdapter.Fill
(this.AdventureWorks.vProductAndDescription);
// create a Matrix barcode object
Matrix barcode = new Matrix();
    // set barcode type to QR Code
    barcode.Type = BarcodeType.QRCode;
    // draw barcodes for each data row
foreach (AdventureWorks.vProductAndDescriptionRow
 row in this.AdventureWorks.vProductAndDescription.Rows)
    {
        // set barcode encoding data value
        barcode.Data = row.ProductID.ToString();
        // set drawing barcode image format
        barcode.Format = System.Drawing.Imaging.ImageFormat.Jpeg;
        row.Barcode = barcode.drawBarcodeAsBytes();
    }
    this.reportViewer1.RefreshReport();
}

Imports System.Collections.Generic
Imports BusinessRefinery.Barcode
Public Class Product
    Private m_name As 
 String
    Private m_price As Integer
    Private m_bit As Byte()
    Public Sub New(name As String, price As Integer, 
data As String)
        m_name = name
        m_price = price
        Dim barcode As NewQRCode()
        PDF417 barcode = new PDF417();
        barcode.Code = "QR Code"


        m_bit = barcode.drawBarcodeAsBytes()
    End Sub
    Public ReadOnly Property Bit() As Byte()
        Get
            Return m_bit
        End Get
    End Property
    Public ReadOnly Property Name() As String
        Get
            Return m_name
        End Get
    End Property
    Public ReadOnly Property Price() As Integer
        Get
            Return m_price
        End Get
    End Property
End Class
Public Class Merchant
    Private m_products As List(Of Product)
    Public Sub New()
        m_products = New List(Of Product)()
        m_products.Add(New Product("code128", 25, "code128"))
        m_products.Add(New Product("code39", 30, "code39"))
        m_products.Add(New Product("qrcode", 15, "qrcode"))
    End Sub
    Public Function GetProducts() As List(Of Product)
        Return m_products
    End Function
End Class