First Download the Font - IDAutomationHC39M and install it.
This is a barcode font.
Now in form use this code
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form6
Dim Rpt As New ReportDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Label1.Text = Me.TextBox1.Text & " " & Me.TextBox2.Text & " " & Me.TextBox3.Text & " " & Me.TextBox4.Text & " " & Me.TextBox5.Text & " "
Dim frmView As New Form3
Rpt = New CrystalReport1
Rpt.SummaryInfo.ReportTitle = Me.Label1.Text
frmView.CrystalReportViewer1.ReportSource = Rpt
frmView.CrystalReportViewer1.RefreshReport()
frmView.Show()
End Sub
End Class
In Crystal Report
Create this formula Named barcode
"*" & ReportTitle & "*"
Now insert the above formula in report.
Enjoy your barcode is ready without database.