Dim sql As String = "select * from products"
Dim conn As String = "provider=
nwind.mdb" '
Dim da As New OleDbDataAdapter(sql, conn)
da.Fill(dt)
' bind chart to table (each series will bind to a field on the table)_
c1chart.DataSource = dt
' clear data series collection
Dim dsc As ChartDataSeriesCollection = c1chart.ChartGroups(0).ChartData.SeriesList
dsc.Clear()
' add unit price series
Dim ds As ChartDataSeries = dsc.AddNewSeries()
'ds.AutoEnumerate = true' (in case you don't want to set the X values)
ds.X.DataField = "ProductName"
ds.Y.DataField = "UnitPrice"
' add units in stock series
ds = dsc.AddNewSeries()
ds.X.DataField = "ProductName"
ds.Y.DataField = "UnitsInStock"
' apply filters, sorting, etc
dt.DefaultView.RowFilter = "CategoryID = 4"