但报错Insert is not a menber of datacolumn collection

非常抱歉，我的回答有误。`DataColumnCollection` 对象不支持 `Insert` 方法，因此不能使用该方法在指定位置插入列。在 VB 中，如果要在数据表的指定位置插入列，可以使用以下方法：

1. 创建一个新的数据表（`newTable`），该数据表仅包含要插入的列，然后将其插入到原始数据表（`dtcontent`）的指定位置：

Dim newCol As New DataColumn("ColumnName", GetType(DataType))
Dim newTable As New DataTable
newTable.Columns.Add(newCol)
dtcontent.Columns.Add(newCol)
Dim newIndex As Integer = ColumnIndex '指定要插入的位置的索引
dtcontent.Columns(newCol.ColumnName).SetOrdinal(newIndex)

在这个方法中，我们首先创建一个新的数据列（`newCol`），然后创建一个新的数据表（`newTable`），并将这个列添加到新的数据表中。然后，我们将这个列添加到原始数据表（`dtcontent`）中，并使用 `SetOrdinal` 方法将其移动到指定的位置（`newIndex`）。

2. 如果不想创建新的数据表，也可以将要插入的列添加到原始数据表（`dtcontent`）中，并使用 `SetOrdinal` 方法将其移动到指定的位置：

Dim newCol As New DataColumn("ColumnName", GetType(DataType))
dtcontent.Columns.Add(newCol)
Dim newIndex As Integer = ColumnIndex '指定要插入的位置的索引
dtcontent.Columns(newCol.ColumnName).SetOrdinal(newIndex)

这个方法比较简单，我们只需要将要插入的列直接添加到原始数据表（`dtcontent`）中，并使用 `SetOrdinal` 方法将其移动到指定的位置（`newIndex`）。

总之，以上两种方法都可以在 VB 中实现在数据表的指定位置插入列的功能。如果你还有其他问题，请随时提出。