Помогите вложить запрос - VB

Формулировка задачи:

Добрый день.
Помогите, пожалуйста, вложить запрос.
Есть выборка, объединяющая две таблицы EXCEL (с одинаковой структурой)

strPath1 = "[Отчет1$A4:H] IN '" & ActiveDocument.Path & "\Отгрузка1.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"
    strPath2 = "[Отчет1$A4:H] IN '" & ActiveDocument.Path & "\Отгрузка2.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"
                                              
      strQuery = "SELECT [№ вагона], [Дата отправления], [Ст#отгрузки], [Ст#выгрузки] FROM " & strPath1 & " WHERE [№ вагона] in (" & strQuery_disl & ")" & _
        "UNION " & _
        "SELECT [№ вагона], [Дата отправления], [Ст#отгрузки], [Ст#выгрузки] FROM " & strPath2 & " WHERE [№ вагона] in (" & strQuery_disl & ")" & "ORDER BY [№ вагона], [Дата отправления] DESC ;"

Есть выборка максимальной даты для каждого отдельного вагона из одной таблицы:

strPath1 = "[Отчет1$A4:H] as t1 IN '" & ActiveDocument.Path & "\Отгрузка1.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"
    strPath2 = "[Отчет1$A4:H] as t2 IN '" & ActiveDocument.Path & "\Отгрузка1.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"
 
    strQuery = "SELECT * FROM " & strPath1 & " WHERE [Дата отправления] IN (SELECT MAX([Дата отправления]) " & " FROM " & strPath2 & " WHERE t2.[№ вагона]=t1.[№ вагона]) " & " ORDER BY [№ вагона], [Дата отправления] DESC ;"

Вопрос: как связать эти методы и сделать выборку максимальной даты для каждого вагона из объединенных таблиц? То есть, вложить один запрос в другой?

Решение задачи: «Помогите вложить запрос»

textual
                            Листинг программы 
                        

                            strPath1 = "[Отчет1$A4:H] IN '" & ActiveDocument.Path & "\Отгрузка1.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"
strPath2 = "[Отчет1$A4:H] IN '" & ActiveDocument.Path & "\Отгрузка2.xlsx' " & "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=YES;']"

  strQuery_Union1 = "(SELECT * FROM " & strPath1 & " WHERE [№ вагона] in (" & strQuery_disl & ")" & _
        "UNION " & _
        "SELECT * FROM " & strPath2 & " WHERE [№ вагона] in (" & strQuery_disl & ")) as t1"
  strQuery_Union2 = "(SELECT * FROM " & strPath1 & " WHERE [№ вагона] in (" & strQuery_disl & ")" & _
        "UNION " & _
        "SELECT * FROM " & strPath2 & " WHERE [№ вагона] in (" & strQuery_disl & ")) as t2"

    strQueryFinal = "SELECT * FROM " & strQuery_Union1 & " WHERE [Дата отправления] IN (SELECT MAX([Дата отправления]) " & " FROM " & strQuery_Union2 & " WHERE t2.[№ вагона]=t1.[№ вагона]) " & " ORDER BY [№ вагона], [Дата отправления] DESC ;"

                        