Private Sub InsertRow(ByVal dt As DataTable, ByVal rowindex As Integer)
 
        If dt Is Nothing Then Throw New ArgumentException("Keine Tabelle")
        If Not dt.Columns.Contains("ID") Then Throw New ArgumentException( _
          "Keine ID-Spalte")
        If Not dt.Columns("ID").DataType.Equals(GetType(Integer)) Then
            Throw New ArgumentException("ID Spalte nicht vom Typ Integer")
        End If
 
        If rowindex < 0 Then rowindex = 0
        If rowindex > dt.Rows.Count Then rowindex = dt.Rows.Count
 
        'Werte in der ID-Spalte ab rowindex verschieben
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim r As Integer = CType(dt.Rows(i)("ID"), Integer)
            If r >= rowindex Then
                r += 1
                dt.Rows(i).SetField("ID", r)
            End If
        Next i
 
        'neue Zeile anhängen und die zugehörige ID eintragen 
        Dim insertrow As DataRow = dt.NewRow
        insertrow.SetField("ID", rowindex)
        dt.Rows.Add(insertrow)
    End Sub