Dim paramFields As New CrystalDecisions.Shared.ParameterFields
        Dim paramField1 As New CrystalDecisions.Shared.ParameterField
        Dim paramField2 As New CrystalDecisions.Shared.ParameterField
        Dim paramField3 As New CrystalDecisions.Shared.ParameterField
        Dim paramField4 As New CrystalDecisions.Shared.ParameterField
        Dim paramValues As New CrystalDecisions.Shared.ParameterValues
        Dim paramValue As CrystalDecisions.Shared.ParameterValues

        Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Report.Load(Microsoft.VisualBasic.Left(Application.ExecutablePath, Application.ExecutablePath.Trim.Length - (Application.ProductName.Trim.Length +  3  +  1 )) + "Report_Scheme.rpt")
        Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
        Dim Table As CrystalDecisions.CrystalReports.Engine.Table
        Dim Tables As CrystalDecisions.CrystalReports.Engine.Tables
        For Each Table In Report.Database.Tables
            logOnInfo = Table.LogOnInfo
            logOnInfo.ConnectionInfo.ServerName = "LC2000"
            logOnInfo.ConnectionInfo.DatabaseName = "SCADA"
            logOnInfo.ConnectionInfo.UserID = "SCADA_User"
            logOnInfo.ConnectionInfo.Password = "sacad"
            Table.ApplyLogOnInfo(logOnInfo)
        Next Table
       paramField1.ParameterFieldName = "BeginDate"
        Dim discreteValue1 As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        discreteValue1.Value = DateTimePicker1.Value
        paramField1.CurrentValues.Add(discreteValue1)
        paramField2.ParameterFieldName = "EndDate"
        Dim discreteValue2 As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        discreteValue2.Value = DateTimePicker2.Value
        paramField2.CurrentValues.Add(discreteValue2)
        paramField3.ParameterFieldName = "Flag_Confirmed"
        Dim discreteValue3 As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        discreteValue3.Value = CBool(CheckBox1.Checked)
        paramField3.CurrentValues.Add(discreteValue3)
        paramField4.ParameterFieldName = "Flag_NotConfirmed"
        Dim discreteValue4 As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        discreteValue4.Value = CBool(CheckBox2.Checked)
        paramField4.CurrentValues.Add(discreteValue4)
        paramFields.Add(paramField1)
        paramFields.Add(paramField2)
        paramFields.Add(paramField3)
        paramFields.Add(paramField4)
        crystalReportViewer.ParameterFieldInfo = paramFields
        crystalReportViewer.ReportSource = Report