Merging Data Tables with vb.Net

I am merging two data tables.  First I create both data tables.  I then set up a primary key for each table in code.  Then I run a loop that sets the structure.  Then I run the merge function.  

After I return the new data table I am getting all of the records back.  I only want to get back records where the primary keys were equal.  

Here is my code.  I have a data table called dt and one called dtcore.  Then im outputting the merged data table called dts.


                        ' DataColumn array to set primary key.
                        Dim keyCol(1) As DataColumn

                        ' Set primary key column.
                        keyCol(0) = dt.Columns(0)
                        dt.PrimaryKey = keyCol

                        ' Add RowChanged event handler for the table.
                        AddHandler dt.RowChanged, AddressOf Row_Changed

                        ' Set primary key column.
                        keyCol(0) = dtCore.Columns(0)
                        dtCore.PrimaryKey = keyCol

                        ' Add RowChanged event handler for the table.
                        AddHandler dtCore.RowChanged, AddressOf Row_Changed

                        ds.AcceptChanges()

                        Dim i As Integer

                        With dt
                            For i = 0 To .Columns.Count - 1
                                If Not dt.Columns.Contains(.Columns(i).ColumnName) Then
                                    dt.Columns.Add(New DataColumn(.Columns(i).ColumnName, .Columns(i).DataType))
                                End If

                            Next
                        End With

                        With dtCore
                            For i = 0 To .Columns.Count - 1
                                If Not dtCore.Columns.Contains(.Columns(i).ColumnName) Then
                                    dtCore.Columns.Add(New DataColumn(.Columns(i).ColumnName, .Columns(i).DataType))
                                End If
                            Next
                        End With

                        ds.Tables.Add(dtCore)
                        ds.Tables.Add(dt)
                        Console.WriteLine("Merging")
                        dtCore.Merge(dt, False, MissingSchemaAction.Ignore)


                        Dim dts As New System.Data.DataTable("merged")
                        dts = ds.Tables(0)


                        ' Dim appExcel As New Excel.Application

                        'For displaying the column name in the the excel file.
                        For iCol = 0 To dts.Columns.Count - 1
                            appExcel.Cells(1, iCol + 1).Value = dts.Columns(iCol).ColumnName.ToString
                            appExcel.Columns.EntireColumn.AutoFit()
                        Next

                        'For displaying the column value row-by-row in the the excel file.
                        For iRow2 = 0 To dt.Rows.Count - 1
                            For iColVal2 = 0 To dts.Columns.Count - 1
                                appExcel.Cells(iRow2 + 2, iColVal2 + 1).Value = Trim(dts.Rows(iRow2).ItemArray(iColVal2).ToString)
                            Next