Добавление данных в существующую строку в datatable

---

Я пытаюсь объединить 4 различных оператора select из одной таблицы в один datatable с помощью visual studio 2008, но я могу добавить их только как новую строку. Это код, который я делаю:

Что я уже пробовал:

Я уже пробовал datatable.merge, и он все еще добавляется как новая строка. Пожалуйста, помогите!!

Try
           conn1.Open()
           query1 = "SELECT USERID, CHECKDATE,MIN(CHECKTIME) AS [AM IN] FROM CHECKINOUT WHERE " _
           & "USERID = 562 AND CHECKTYPE = 'Check In' GROUP BY USERID,CHECKDATE"
           query2 = "SELECT MIN(CHECKTIME) AS [LUNCH OUT] FROM CHECKINOUT WHERE USERID = 562 " _
           & "AND CHECKTYPE = 'Break Out' GROUP BY USERID,CHECKDATE"
           query3 = "SELECT MAX(CHECKTIME) AS [LUNCH IN] FROM CHECKINOUT WHERE USERID = 562 " _
           & "AND CHECKTYPE = 'Break In' GROUP BY USERID, CHECKDATE"
           query4 = "SELECT MAX(CHECKTIME) AS [CHECK OUT] FROM CHECKINOUT WHERE USERID = 562 " _
           & "AND CHECKTYPE = 'Check Out' GROUP BY USERID, CHECKDATE"

           mainTable.Columns.Add("ID")
           mainTable.Columns.Add("DATE")
           mainTable.Columns.Add("CHECK IN")
           mainTable.Columns.Add("LUNCH OUT")
           mainTable.Columns.Add("LUNCH IN")
           mainTable.Columns.Add("CHECK OUT")

           cmd = New OleDbCommand(query1, conn1)
           Dim reader As OleDbDataReader
           reader = cmd.ExecuteReader

           While reader.Read
               Dim irow As DataRow = mainTable.NewRow
               irow("ID") = reader.Item(0)
               irow("DATE") = DateTime.Parse(reader.Item(1)).ToString("MM/dd/yyyy")
               irow("CHECK IN") = DateTime.Parse(reader.Item(2)).ToString("HH:mm tt")
               mainTable.Rows.Add(irow)
           End While

           reader.Close()
           cmd.Dispose()

           cmd2 = New OleDbCommand(query2, conn1)
           Dim reader2 As OleDbDataReader
           reader2 = cmd2.ExecuteReader

           While reader2.Read
               Dim irow As DataRow = mainTable.NewRow
               irow("LUNCH OUT") = DateTime.Parse(reader2.Item(0)).ToString("HH:mm tt")
               mainTable.Rows.Add(irow)
           End While

           conn1.Close()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       Return mainTable

---