crystal report error ?

    Private Sub TabPage12_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage12.Enter

Dim path As String = Application.StartupPath.Remove(Application.StartupPath.Length - 10)
      path += "\HairRpt.rpt"
      'HairRpt1.Load("HairRpt.rpt")
      'HairRpt1.FileName = "HairRpt.rpt"
      Dim Report As ReportDocument = New ReportDocument()
      Dim coninfo As ConnectionInfo = New ConnectionInfo()
      coninfo.ServerName = "."
      coninfo.DatabaseName = "Matab"
      Report.Load(path)
      Report.FileName = path
      CrystalReportViewer1.ReportSource = path

      Dim parameter As ParameterFields = CrystalReportViewer1.ParameterFieldInfo
      Dim ID As ParameterField = New ParameterField()
      ID.Name = "ID"
      Dim ID_value As ParameterDiscreteValue = New ParameterDiscreteValue()
      ID_value.Value = CLng(lblId.Text)
      ID.CurrentValues.Add(ID_value)
      parameter.Add(ID)
      Dim idForm As ParameterField = New ParameterField()

      idForm.Name = "idForm"
      Dim idForm_value As ParameterDiscreteValue = New ParameterDiscreteValue()
      idForm_value.Value = CLng(lblId.Text)
      idForm.CurrentValues.Add(idForm_value)
      parameter.Add(idForm)
      Dim IDForm1 As ParameterField = New ParameterField()

      IDForm1.Name = "IDForm"
      Dim IDForm1_value As ParameterDiscreteValue = New ParameterDiscreteValue()
      IDForm1_value.Value = CLng(lblId.Text)
      IDForm1.CurrentValues.Add(IDForm1_value)
      parameter.Add(IDForm1)
      Dim type As ParameterField = New ParameterField()

      type.Name = "type"
      Dim type_value As ParameterDiscreteValue = New ParameterDiscreteValue()
      type_value.Value = 1
      type.CurrentValues.Add(type_value)
      parameter.Add(type)
      Dim logonInfo As TableLogOnInfo = CrystalReportViewer1.LogOnInfo(0)
      logonInfo.ConnectionInfo = coninfo
      'Report.ParameterFields("ID").CurrentValues.Add(CLng(lblId.Text))
      'Report.ParameterFields("idForm").CurrentValues.Add(CLng(lblId.Text))
      'Report.ParameterFields("type").CurrentValues.Add(1)
      'Report.ParameterFields("IDForm").CurrentValues.Add(CLng(lblId.Text))

      'Report.SetParameterValue("ID", CLng(lblId.Text))
      'Report.SetParameterValue("idForm", CLng(lblId.Text))
      'Report.SetParameterValue("type", 1)
      'Report.SetParameterValue("IDForm", CLng(lblId.Text))
      'CrystalReportViewer1.ParameterFieldInfo = parameter
      'CrystalReportViewer1.ReportSource = Report
  End Sub

  Private Sub CrystalReportViewer1_ReportRefresh(ByVal source As System.Object, ByVal e As CrystalDecisions.Windows.Forms.ViewerEventArgs) Handles CrystalReportViewer1.ReportRefresh
      e.Handled = True
  End Sub