protected void Page_Load(object sender, EventArgs e)
{
OleDbConnection aConnection = new OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Demo/
BarcodeDemoData.mdb");
aConnection.Open();
OleDbDataAdapter dataAdapter = new OleDbDataAdapter
("select * from Customer", aConnection);
DataSet ds = new DataSet();
dataAdapter.Fill(ds);
//add a new column named "Barcode" to the DataSet, 
the new column data type is byte[]
ds.Tables[0].Columns.Add(new DataColumn("Barcode", typeof(
byte[])));
Linear barcode = new Linear();
barcode.Type = BarcodeType.CODE39;
barcode.BarcodeHeight = 60;
barcode.BarcodeWidth = 150;
barcode.AutoSize = true;
foreach (DataRow dr in ds.Tables[0].Rows)
{
barcode.Data = (int)dr["CustomerId"] + "";
byte[] imageData = barcode.drawBarcodeAsBytes();
dr["Barcode"] = imageData;
}
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"));
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables[0]);
CrystalReportSource1.DataBind();
aConnection.Close();
}

Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
Dim aConnection As New OleDbConnection
("Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=C:/Demo/BarcodeDemoData.mdb")
aConnection.Open()
Dim dataAdapter As New OleDbDataAdapter("select * from Customer", 
aConnection)
Dim ds As New DataSet()
dataAdapter.Fill(ds)
'add a new column named "Barcode" to the DataSet, the new column 
data type is byte[]
ds.Tables(0).Columns.Add(New DataColumn("Barcode", GetType(
Byte())))
Dim barcode As New Linear()
barcode.Type = BarcodeType.CODE39
barcode.BarcodeHeight = 60
barcode.BarcodeWidth = 150
barcode.AutoSize = AutoSize.true
For Each dr As DataRow In ds.Tables(0).Rows
barcode.Data = CInt(dr("CustomerId")) & ""
Dim imageData As Byte() = barcode.drawBarcodeAsBytes()
dr("Barcode") = imageData
Next
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables(0))
CrystalReportSource1.DataBind()
aConnection.Close()
End Sub

protected void Page_Load(object sender, EventArgs e)
{
OleDbConnection aConnection = new OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:
/Demo/BarcodeDemoData.mdb");
aConnection.Open();
OleDbDataAdapter dataAdapter = new OleDbDataAdapter
("select * from Customer", aConnection);
DataSet ds = new DataSet();
dataAdapter.Fill(ds);
//add a new column named "Barcode" to the DataSet,
the new column data 
type is byte[]
ds.Tables[0].Columns.Add(new DataColumn("Barcode", 
typeof(byte[])));
Linear barcode = new Linear();
barcode.Type = BarcodeType.CODE39;
barcode.BarHeight = 60;
barcode.BarWidth = 3;
barcode.AutoSize = true;
foreach (DataRow dr in ds.Tables[0].Rows)
{
barcode.Data = (int)dr["CustomerId"] + "";
byte[] imageData = barcode.drawBarcodeAsBytes();
dr["Barcode"] = imageData;
}
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"));
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables[0]);
CrystalReportSource1.DataBind();
aConnection.Close();
}

Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
Dim aConnection As New OleDbConnection
("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:/Demo/BarcodeDemoData.mdb")
aConnection.Open()
Dim dataAdapter As New OleDbDataAdapter("select * from Customer", 
aConnection)
Dim ds As New DataSet()
dataAdapter.Fill(ds)
'add a new column named "Barcode" to the DataSet, the new column 
data type is byte[]
ds.Tables(0).Columns.Add(New DataColumn("Barcode", GetType

(Byte())))
Dim barcode As New Linear()
barcode.Type = BarcodeType.CODE39
barcode.BarHeight = 60
barcode.BarWidth = 3
barcode.AutoSize = AutoSize.true
For Each dr As DataRow In ds.Tables(0).Rows
barcode.Data = CInt(dr("CustomerId")) & ""

Dim imageData As Byte() = barcode.drawBarcodeAsBytes()
dr("Barcode") = imageData
Next
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables(0))
CrystalReportSource1.DataBind()
aConnection.Close()
End Sub