campo expressão consulta vba

Bom dia amigos! Realizo uma consulta tendo como critério o campo "LOC". Após feita essa consulta, criei uma subconsulta que acrescenta mais dois campos na forma de expressão:

Código:


SELECT Serialize("RelORC","id",[id]) AS Num, Format([Num],"000") AS ITEM, CADORÇ.Loc, CADORÇ.empr, CADORÇ.data, CADORÇ.cont, CADORÇ.resp, CADORÇ.cpag, CADORÇ.pentr, DETORC.PROD, DETORC.TIPO, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, DETORC.QTDE, DETORC.PR, DETORC.PRDESC, DETORC.OBSREL, DETORC.TOTAL, DETORC.REF, DETORC.ID, CADORÇ.cod, DETORC.refrel, DETORC.prel, DETORC.totdesc, CADORÇ.sit
FROM CADORÇ INNER JOIN DETORC ON CADORÇ.loc = DETORC.LOC
WHERE (((CADORÇ.loc)=[ConsRel].[Loc]))
GROUP BY CADORÇ.Loc, CADORÇ.empr, CADORÇ.data, CADORÇ.cont, CADORÇ.resp, CADORÇ.cpag, CADORÇ.pentr, DETORC.PROD, DETORC.TIPO, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, DETORC.QTDE, DETORC.PR, DETORC.PRDESC, DETORC.OBSREL, DETORC.TOTAL, DETORC.REF, DETORC.ID, CADORÇ.cod, DETORC.refrel, DETORC.prel, DETORC.totdesc, CADORÇ.sit, DETORC.Loc;



Serialize("RelORC","id",[id]) AS Num, Format([Num],"000") AS ITEM

o comando que realiza a consulta original, sem esses dois campos:

Código:


Private Sub fncMontaFiltro()
Dim qry As QueryDef
Dim strsql As String
Set qry = CurrentDb.QueryDefs("consrel")
strsql = strsql & "SELECT CADORÇ.Loc, CADORÇ.empr, CADORÇ.data, CADORÇ.cont, CADORÇ.resp, CADORÇ.cpag, CADORÇ.pentr, DETORC.PROD, DETORC.TIPO, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, DETORC.QTDE, DETORC.PR, DETORC.PRDESC, DETORC.OBSREL, DETORC.TOTAL, DETORC.REF, DETORC.ID, CADORÇ.cod, DETORC.refrel, DETORC.prel, DETORC.totdesc, CADORÇ.sit  FROM CADORÇ INNER JOIN DETORC ON CADORÇ.loc = DETORC.LOC"
strsql = strsql & "  WHERE  CADORÇ.loc =" & Me.fmTXLOC
strsql = strsql & " GROUP BY CADORÇ.Loc, CADORÇ.empr, CADORÇ.data, CADORÇ.cont, CADORÇ.resp, CADORÇ.cpag, CADORÇ.pentr, DETORC.PROD, DETORC.TIPO, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, DETORC.QTDE, DETORC.PR, DETORC.PRDESC, DETORC.OBSREL, DETORC.TOTAL, DETORC.REF, DETORC.ID, CADORÇ.cod, DETORC.refrel, DETORC.prel, DETORC.totdesc, CADORÇ.sit, DETORC.Loc "
 strsql = strsql
qry.sql = strsql
Set qry = Nothing
End Sub



Seria possível criar esses campos diretamente logo na primeira consulta?

Desde já, agradeço muito a ajudas dos colegas!!