Dim DT As DataTable = SQLGetData("select top 200 wert from Tabelle")
 
Dim DL As Object()
ReDim DL(DT.Rows.Count - 1)
DT.Rows.CopyTo(DL, 0)
 
Chart1.Series.Clear()
 
Chart1.Series.Add("Test")
Chart1.Legends.Clear()
Chart1.Series(0).Points.DataBindY(DL)
Chart1.Series(0).Name = "Wert"
 
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.FastLine

Joachim