Сортировка Access VBA

sq = "SELECT 0 As NumStr, Артикул, Наименование, Отделка, 'шт.' As ED, Количество, Format(Round(Цена, 0), '0.00'), Format(Скидка, '0%'), Format(Round((Количество*Цена - Количество*Цена*Скидка), 0), '0.00')  AS Сумма " & _
    "FROM Товар" & _
    " ORDER BY Товар.Код ASC" & _  'тут поидее должен был бы сортировать по Коду из подчиненной формы, сам код в запросе не используеться, но не сортирует
    " UNION " & _
    "SELECT 9998, '', 'Доставка по Москве', '', '', '', Format(" & [Forms]![МКБ]![Доставка] & ", '0.00'), '', Format(" & [Forms]![МКБ]![Доставка] & ", '0.00')" & _
    " FROM Товар" & _
    " UNION " & _
    "SELECT 9999, '', 'Итого', '', '', '', '', '', format(Round(sum(Цена*Количество - Цена*Количество*Скидка) +" & [Forms]![МКБ]![Доставка] & ", 0), '0.00') " & _
    " FROM Товар"

'функция выгрузки в Word из запроса в таблицу
Public Function funOutputTableWordQuery(app As Object, sq$, bmName$) As Boolean
On Error GoTo Err_
Dim rstTable As DAO.Recordset
Dim i As Long, j As Long, NumStr As Long
Dim CountRec As Long
  Set rstTable = CurrentDb.OpenRecordset(sq, dbOpenSnapshot) 'открываем запрос на чтение
  rstTable.MoveLast 'переходим в конец набора строк - тем самым они гарантированно загружаются в переменную rstTable
  rstTable.MoveFirst 'возращаемся в начало набора строк
  CountRec = rstTable.RecordCount 'определяем число строк в запросе
  If CountRec > 0 Then 'смотрим, чтоб не пустой запрос
    With app.ActiveWindow.Selection 'ставим фокус на текущее окно
      .GoTo What:=-1, Name:=bmName 'wdGoToBookmark Перейти на закладку - начало втыкания данных в таблицу
      'запоминаем номер строки таблицы где стоит начальная закладка
      j = .Information(14) 'wdEndOfRangeRowNumber
      If CountRec > 1 Then
        'Вставим необходимое количество строк
        .InsertRowsBelow CountRec - 1
      End If
      'Заполняем таблицу данными из запроса
      'просто вставляем слева направо в ячейки значения столбцов запроса по порядку
      NumStr = 1
      Do While Not rstTable.EOF 'Запускаем цикл перебора столбцов запроса
        For i = 0 To rstTable.Fields.Count - 1
          If rstTable.Fields(i).Name = "NumStr" Then 'если в запросе будет столбец с именем NumStr - то вместо него в ячейку таблицы встанет порядковый номер записи
            .Tables(1).Cell(j, i + 1).Range = NumStr
          Else
            'Заполняем таблицу по координатам: номер столбца, номер строки
            .Tables(1).Cell(j, i + 1).Range = Nz(rstTable.Fields(i), "")
          End If
        Next i
        rstTable.MoveNext 'переходим на следующую запись
        NumStr = NumStr + 1 'увеличиваем номер по порядку
        j = j + 1 'увеличиваем номер координаты ячейки (номер столбца)
      Loop
    End With
  End If
  rstTable.Close 'закрываем рекордсет
  Set rstTable = Nothing
  funOutputTableWordQuery = True 'ставим флаг успешного выполнения функции
Exit_:
  Exit Function
Err_:
  funOutputTableWordQuery = False
  Err.Clear
  Resume Exit_
End Function