CRYSTAL REPORT in VB.Net

CRYSTAL REPORT

Dim cr As New CrystalReport1

Me.CrystalReportViewer1.ReportSource = cr

      Me.CrystalReportViewer1.Show()

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.CrystalReports.ViewerObjectModel

Imports CrystalDecisions.Shared

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       

        Dim emp = cr.ParameterFields("@H01_emp_num")

        emp.CurrentValues.AddValue(Form1.TextBox1.Text)

        emp.HasCurrentValue = True

        Dim year = cr.ParameterFields("@Date_Range")

        year.CurrentValues.AddValue(Form1.ComboBox1.SelectedItem)

        year.HasCurrentValue = True

        Form1.CrystalReportViewer1.ReportSource = cr

        cr.SetDatabaseLogon("SA", "SA")

        Form1.CrystalReportViewer1.Show()

    End Sub