' Transponieren einer Datatable
    ' newName- der Name der neuen Datatable
    ' dt- die zu transponierende Datatable
    ' anfCol- Steuerparameter (-1 heißt, die neuen Spalten werden 
    ' durchnummeriert;
    ' 0 heißt, es wird die erste Spalte für die neuen Spaltenheader verwendet
    Public Function transposeDatatable(ByVal newName As String, _
      ByVal dt As DataTable, _
      Optional ByVal anfCol As Short = -1) As DataTable
 
        Dim table As New DataTable(newName)
        Dim r As DataRow
        Dim ak As Short
 
        If anfCol < 0 Then ak = 0 Else ak = 1
        ' neue Spalten durchnummerieren
        For i As Integer = 0 To dt.Rows.Count - ak
            If anfCol < 0 Then
                table.Columns.Add(i.ToString)
            Else
                table.Columns.Add(dt.Rows(i).Item(anfCol))
            End If
        Next i
 
        ' Zeilen aus Spalten zusammenstellen
        For k As Integer = ak To dt.Columns.Count - 1
            r = table.NewRow()
            r(0) = dt.Columns(k).ToString
            If anfCol < 0 Then
                For j As Integer = 1 To dt.Rows.Count
                    r(j) = dt.Rows(j - 1)(k)
                Next j
            Else
                For j As Integer = 0 To dt.Rows.Count - ak
                    r(j) = dt.Rows(j)(k)
                Next j
            End If
            table.Rows.Add(r)
        Next k
 
        Return table
    End Function

   Sub Load_chart(ByVal strSQL)
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dt1 As New DataTable
        Dim strTabname As String = "Test"
        Dim dv As DataView
 
        Dim da As New OleDbDataAdapter(strSQL, conn)
 
        da.Fill(dt)
        dt1 = transposeDatatable("dt1", dt, 0)
        dv = New DataView(dt1)
        dgv.DataSource = dt1
 
        Chart1.Palette = ChartColorPalette.Pastel
 
        Chart1.DataBindTable(dv)
 
        ds = Nothing
 
    End Sub