Dim sFolder As String
        sFolder = CboFolder.SelectedItem
        If sFolder <> "" Then
            Dim sqlQuery As String
            sqlQuery = "Select * from SampleChart where FolderName='" & sFolder & "'"

            Dim adapter As New SqlDataAdapter(sqlQuery, con)
            Dim dt_Stocks As New DataTable()
            adapter.Fill(dt_Stocks)
            Dim dv_Stocks As New DataView(dt_Stocks)
            dv_Stocks.Sort = "TotalRecords"

            Dim Series As New Series("SampleChart", ViewType.Area)
            ChartControl1.Series.Add(Series)

            ChartControl1.DataSource = dt_Stocks
            ChartControl1.SeriesDataMember = "PersonName"
            ChartControl1.SeriesTemplate.ArgumentDataMember = "PersonName"
            ChartControl1.SeriesTemplate.ValueDataMembers.AddRange(New String() {"TotalRecords"})
            ChartControl1.Visible = True
        End If