UniteDataTable vb.net

    Private Function UniteDataTable(ByVal dt1 As DataTable, ByVal dt2 As DataTable, ByVal DTName As String)
        Dim dt3 As DataTable = dt1.Clone()
        For i As Short = 0 To dt2.Columns.Count - 1
            dt3.Columns.Add(dt2.Columns(i).ColumnName)
        Next
        Dim obj As New Object
        obj = dt3.Columns.Count
        For i As Short = 0 To dt1.Rows.Count - 1
            dt1.Rows(i).ItemArray.CopyTo(obj, 0)
            dt3.Rows.Add(obj)
        Next
        If dt1.Rows.Count >= dt2.Rows.Count Then
            For i As Short = 0 To dt2.Rows.Count - 1
                For j As Short = 0 To dt2.Columns.Count - 1
                    dt3.Rows(i)(j + dt1.Columns.Count) = dt2.Rows(i)(j).ToString()
                Next
            Next
        Else
            Dim dr3 As DataRow
            For i As Short = 0 To dt2.Rows.Count - dt1.Rows.Count - 1
                dr3 = dt3.NewRow()
                dt3.Rows.Add(dr3)
            Next
            For i As Short = 0 To dt2.Rows.Count - 1
                For j As Short = 0 To dt2.Columns.Count - 1
                    dt3.Rows(i)(j + dt1.Columns.Count) = dt2.Rows(i)(j).ToString()
                Next
            Next
        End If
        dt3.TableName = DTName
        Return dt3
    End Function