' Create datatable and columns
        Dim ds As New DataSet("MyDataSet")
        Dim dt As New DataTable("Position")
        Dim dc As DataColumn
        ds.Tables.Add(dt)
        dc = dt.Columns.Add("Name", GetType(String))
        dc = dt.Columns.Add("Tabelle", GetType(String))
        dc = dt.Columns.Add("Feld", GetType(String))
 
        ' Add rows
        Dim dr As DataRow
 
        dr = dt.Rows.Add
        dr("Name") = "Arbeitspaket"
        dr("Tabelle") = "PGPRV_Arbeitspakete"
        dr("Feld") = "ID"
 
        dr = dt.Rows.Add
        dr("Name") = "Otherstuff"
        dr("Tabelle") = "APGPRV_Otherstuff"
        dr("Feld") = "OD"
 
        ' Create binding source and bind to DGV
        Dim bs As New BindingSource(dt, Nothing)
        DataGridView1.DataSource = bs

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist