Dim Rechnungsbetrag_spalte As New DataColumn
        With Rechnungsbetrag_spalte
            .DataType = System.Type.GetType("System.Decimal")
            .ColumnName = "Rechnungsbetrag"
        End With
        loc_dt.Columns.Add(Rechnungsbetrag_spalte)
 
 For Each spalte As rechnung_linq_dgv In loc_res
            Dim DR As DataRow = loc_dt.NewRow()
             DR("Rechnungsbetrag") = spalte.rechnungsbetrag            
            loc_dt.Rows.Add(DR)
        Next

 Dim dgv_bs As New BindingSource
 dgv_bs.DataSource = rechnungen_dv
 Me.DataGridView1.DataSource = dgv_bs