Dim reihe As DataRow
    Dim id As Integer
    Dim neueDT As DataTable
    Dim ds2 As New DataSet()
    Dim col As DataColumn        
 
neueDT = ds2.Tables.Add("Neue Tabelle")
 
        With neueDT
            col = .Columns.Add("ID")
            col = .Columns.Add("Bezeichnung")
        End With
 
 
        reihe = Tabelle.Rows(0)
        id = reihe.ItemArray(0)
 
        neueDT.Rows.Add(reihe)
        id = reihe!ID

 neueDT.Rows.Add(reihe)