Объединение нескольких таблиц перед выводом в DataGridView

      Dim _FilePath As String = TextBox1.Text
 
        Dim DataSet1 As New DataSet
        DataSet1.ReadXml(_FilePath)
 
        Dim DataSet2 As New DataSet
        DataSet2.ReadXml(_FilePath)
 
 
        Dim DataSet3 As New DataSet
        DataSet3.ReadXml(_FilePath)
 
 
        Dim aggregateTable As New DataTable("AggTbl")
        aggregateTable.Merge(DataSet1.Tables(15))
        aggregateTable.Merge(DataSet2.Tables(16))
        aggregateTable.Merge(DataSet3.Tables(17))
        Me.DataGridView1.DataSource = aggregateTable

        Dim DataSet3 As New DataSet
        DataSet3.ReadXml(_FilePath)
        DataGridView2.DataSource = DataSet3.Tables(17)

 Dim _FilePath As String = TextBox1.Text
 
        Dim DataSet1 As New DataSet
        DataSet1.ReadXml(_FilePath)
        DataGridView1.DataSource = DataSet1.Tables(15)
 
        Dim DataSet2 As New DataSet
        DataSet2.ReadXml(_FilePath)
        DataGridView2.DataSource = DataSet2.Tables(16)
 
 
        Dim DataSet3 As New DataSet
        DataSet3.ReadXml(_FilePath)
        DataGridView3.DataSource = DataSet3.Tables(18)
 
 
        Dim aggregateTable As New DataTable("AggTbl")
 
        aggregateTable.Merge(DataSet1.Copy.Tables(15))
        aggregateTable.Merge(DataSet2.Copy.Tables(16))
        aggregateTable.Merge(DataSet3.Copy.Tables(18))
 
        Me.DataGridView4.DataSource = aggregateTable

aggregateTable.Merge(DataSet3.Copy.Tables(18))

Dim copyDataSet1 As DataSet = dataSet1.Copy()

  Dim aggregateTable As New DataTable("AggTbl")
 
        aggregateTable.Merge(DataSet1.Copy.Tables(15))
        aggregateTable.Merge(DataSet2.Copy.Tables(16))
  
        Me.DataGridView4.DataSource = aggregateTable

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    DataGridView1.DataSource = mergeTabs()
End Sub
Private Function mergeTabs() As DataTable
    Dim xmlFile As XmlReader
    Dim settings As XmlReaderSettings = New XmlReaderSettings()
    settings.IgnoreComments = True
    settings.IgnoreProcessingInstructions = True
    settings.IgnoreWhitespace = True
    xmlFile = XmlReader.Create(".\xmlData\6.xml", settings)  '\bin\Debug\xmlData\6.xml
    Dim ds As New DataSet
    ds.ReadXml(xmlFile)
    Dim tbNew As New DataTable
    tbNew.Merge(ds.Tables("СведенияОполучателе")) '15
    tbNew.Merge(ds.Tables("ФИО")) '16
    tbNew.PrimaryKey = New DataColumn() {tbNew.Columns("СведенияОполучателе_Id")}
    Dim tbNew2 As New DataTable
    tbNew2.Merge(ds.Tables("ВсеВыплаты")) '17
    tbNew2.Merge(ds.Tables("Выплата")) '18
    tbNew2.PrimaryKey = New DataColumn() {tbNew2.Columns("СведенияОполучателе_Id")}
    tbNew.Merge(tbNew2, False, MissingSchemaAction.Add)
    Return tbNew
End Function

Private Function mergeTabs2() As DataTable
    Dim xmlFile As XmlReader
    Dim settings As XmlReaderSettings = New XmlReaderSettings()
    settings.IgnoreComments = True
    settings.IgnoreProcessingInstructions = True
    settings.IgnoreWhitespace = True
    xmlFile = XmlReader.Create(".\xmlData2\6.xml", settings)
    Dim ds As New DataSet
    ds.ReadXml(xmlFile)
    Dim tbNew1 As New DataTable
    tbNew1.Merge(ds.Tables("СведенияОполучателе")) '15
    tbNew1.Merge(ds.Tables("ФИО")) '16
    Dim tbNew2 As New DataTable
    With tbNew2.Columns
        .Add("СведенияОполучателе_Id", GetType(Integer))
        .Add("ВсеВыплаты_Id", GetType(Integer))
        .Add("ПризнакВыплаты", GetType(String))
        .Add("СуммаКвыплате", GetType(String))
        .Add("ДатаНачалаПериода", GetType(String))
        .Add("ДатаКонцаПериода", GetType(String))
        .Add("ВидВыплатыПоПЗ", GetType(String))
        .Add("НомерВмассиве", GetType(String))
        .Add("НомерВыплатногоДела", GetType(String))
        .Add("КодРайона", GetType(String))
        .Add("СтраховойНомер", GetType(String))
        .Add("НомерСчета", GetType(String))
        .Add("СуммаКдоставке", GetType(String))
        .Add("СПИСОК_НА_ЗАЧИСЛЕНИЕ_Id", GetType(Integer))
        .Add("Фамилия", GetType(String))
        .Add("Имя", GetType(String))
        .Add("Отчество", GetType(String))
    End With
    Dim vv1 As DataTable = ds.Tables("Выплата")
    Dim vv2 As DataTable = ds.Tables("ВсеВыплаты")
    Dim conbiVV = From v1 In vv1, v2 In vv2 Where v1!ВсеВыплаты_Id = v2!ВсеВыплаты_Id
    For Each rw In conbiVV
        tbNew2.Rows.Add(New Object() {rw.v2.Item("СведенияОполучателе_Id"), rw.v1.Item("ВсеВыплаты_Id"), _
            rw.v1.Item("ПризнакВыплаты"), rw.v1.Item("СуммаКвыплате"), rw.v1.Item("ДатаНачалаПериода"), _
            rw.v1.Item("ДатаКонцаПериода"), rw.v1.Item("ВидВыплатыПоПЗ")})
    Next
    For Each rw In tbNew2.Rows
        Dim jj As Integer = rw!СведенияОполучателе_Id
        Dim fio = From nr In tbNew1 Where nr!СведенияОполучателе_Id = jj
        rw!НомерВмассиве = fio(0).Item("НомерВмассиве")
        rw!НомерВыплатногоДела = fio(0).Item("НомерВыплатногоДела")
        rw!КодРайона = fio(0).Item("КодРайона")
        rw!СтраховойНомер = fio(0).Item("СтраховойНомер")
        rw!НомерСчета = fio(0).Item("НомерСчета")
        rw!СуммаКдоставке = fio(0).Item("СуммаКдоставке")
        rw!СПИСОК_НА_ЗАЧИСЛЕНИЕ_Id = fio(0).Item("СПИСОК_НА_ЗАЧИСЛЕНИЕ_Id")
        rw!Фамилия = fio(0).Item("Фамилия")
        rw!Имя = fio(0).Item("Имя")
        rw!Отчество = fio(0).Item("Отчество")
    Next
    Return tbNew2
End Function

Dim str As String = ""
Dim sW As New Stopwatch
sW.Start()
'блок 1
sW.Stop()
str &= "p1=" & sW. ElapsedMilliseconds.ToString() & vbCrLf
sW.Restart()
'блок 2
sW.Stop()
str &= "p2=" & sW. ElapsedMilliseconds.ToString() & vbCrLf
sW.Restart()
'блок 3
'…
sW.Stop()
str &= "p5=" & sW. ElapsedMilliseconds.ToString() & vbCrLf
MsgBox(str)