Insert headers of a datatable VB.NET
<p>I need your help for my code vb
In fact, i created an new datatable and i want to copy the headers from another datatable
here is my code</p>

<pre><code>Dim name(de.Tables(0).Columns.Count) As String
    Dim p As Integer = 0
    For Each column As DataColumn In de.Tables(0).Columns
        name(p) = column.ColumnName
        p += 1
    Next
    Dim m As Integer = 0
    For m = 0 To de.Tables(0).Columns.Count - 1
        dt.Columns(m).ColumnName = name(p)
    Next
</code></pre>