range bar chart in vb.net 2010

Dim ds As New SQLDBDataSet()
       Dim cnx As New SqlConnection
       cnx.Open()
       
       Dim ta As New SQLDBDataSetTableAdapters.Function1TableAdapter
      
       ta.Fill(ds.Function1, Me.DateValue.Value.ToString("dd/mm/yyyy"))

Dim ChartArea1 As ChartArea = New ChartArea()
       Dim Series1 As New Series
       Dim Chart1 = New Chart()
       Me.Controls.Add(Chart1)

       ChartArea1.Name = "ChartArea1"
       Chart1.ChartAreas.Add(ChartArea1)
       Chart1.Location = New System.Drawing.Point(13, 13)
       Chart1.Name = "Chart1"
       Series1.ChartArea = "ChartArea1"
       Series1.Name = "Series1"
       Series1.ChartType = SeriesChartType.RangeBar
       Chart1.Series.Add(Series1)
       Chart1.Size = New System.Drawing.Size(600, 400)
       Chart1.TabIndex = 0
       Chart1.Text = "Rapport Engin"

       Chart1.Series("Series1").XValueMember = "CodeEngin"
       Chart1.Series("Series1").YValueMembers = "HeureDebut, HeureFin"

       Chart1.DataSource = ds.Tables("Function1")