Вставить колонку в DataTable не последней

            '   Вставляем столбец вторым
            Dim Column As New DataGridViewTextBoxColumn         '   Описываем тип столбца
            With Column
                .HeaderText = DateString                            '   В заголовке текущая дата
                .Width = 65
            End With
            DataGridView2.Columns.Insert(2, Column)

        Dim columnew As DataColumn
        columnew = New DataColumn(DateString, System.Type.GetType("System.String"))
        '   Вставляем колонку
        dtt.Columns.Add(columnew)

Dim newC As New DataColumn("ssNew", System.Type.GetType("System.String"))
insertCol(tbb, 2, newC)
'…
Private Sub insertCol(ByRef tb As DataTable, ByVal iiNewCol As Integer, ByVal NewCol As DataColumn)
    Dim nn As Integer = tb.Columns.Count
    If iiNewCol < 0 OrElse iiNewCol > nn - 1 Then Exit Sub
    Dim arc2 As New List(Of DataColumn)
    arc2.Capacity = nn
    For Each cc As DataColumn In tb.Columns
        arc2.Add(cc)
    Next
    arc2.Insert(iiNewCol, NewCol)
    tb.Columns.Clear()
    For Each cc As DataColumn In arc2
        tb.Columns.Add(cc)
    Next
End Sub

dtt.Columns.Add("Новая колонка", Type.GetType("System.String")).SetOrdinal(1)

DataGridViewColumns("Название колонки").DisplayIndex=1

DataGridView1.Columns("Column1").DisplayIndex=1

        '   Вставляем последним столбец в DataTable
        dtt.Columns.Add("Новая колонка", Type.GetType("System.String")).SetOrdinal(2)
        '   В DataGridView его видим вторым 
        DataGridView2.Columns("Новая колонка").DisplayIndex = 2