Sub Load_chart(ByVal strSQL)
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dv As DataView
        dv = New DataView(dt)
        Dim da As New OleDbDataAdapter(strSQL, conn)
        da.Fill(dt)
        Chart1.Series.Clear()
        Chart1.Palette = ChartColorPalette.Pastel
        Chart1.DataBindTable(dv, "Jahr")
 
        ds = Nothing
    End Sub

    ActiveChart.PlotBy = xlColumns