Database - Passaggio Di Parametri A Query Di Access

Query # Passaggio di parametri a query da Visual Basic
Nel database abbiamo una query cosi' formata:
PARAMETERS mIsp Long, prInc Long;
SELECT pratica.progr, idPratica, PRATICA.codTipoPratica, EsisteNumeroPa As IsPA, NumeroPA, DescTipoPratica
FROM TIPO_PRATICA, PRATICA, PA
WHERE PRATICA.matrIspettore = PA.matrIspettore
AND PRATICA.ProgrIncarico = PA.ProgrIncarico
AND PRATICA.Progr = PA.Progr
AND PRATICA.CodTipoPratica = TIPO_PRATICA.CodTipoPratica
AND PRATICA.matrIspettore = mIsp
AND PRATICA.ProgrIncarico = prInc
UNION SELECT pratica.progr, idPratica, PRATICA.codTipoPratica, tipo_pratica.EsisteNumeroPA As IsPA, -1 AS NumeroPA, DescTipoPratica
FROM TIPO_PRATICA, PRATICA
WHERE PRATICA.Progr NOT IN
(SELECT Progr FROM PA WHERE matrIspettore = mIsp
AND ProgrIncarico = prInc)
AND PRATICA.CodTipoPratica = TIPO_PRATICA.CodTipoPratica
AND PRATICA.matrIspettore = mIsp
AND PRATICA.ProgrIncarico = prInc;
UNION SELECT pratica.progr, idPratica, PRATICA.codTipoPratica, False As IsPA, 0 AS NumeroPA, '' as DescTipo-Pratica
FROM PRATICA
WHERE CodTipoPratica IS Null
AND PRATICA.matrIspettore = mIsp
AND PRATICA.ProgrIncarico = prInc;
Nel codice del form si deve scrivere:
Global RsPA As Recordset
Public Function Intesta() As Boolean
Dim QryAppoggio As QueryDef
Set QryAppoggio = dbDataBaseLocale.QueryDefs("QueryPAContenitore")
QryAppoggio("MIsp") = lngMatrIspettore
QryAppoggio("PrInc") = lngNumeroIncarico
QryAppoggio("TipoCont") = strCodContenitore
QryAppoggio("PrCont") = lngProgrContenitore
Set RsPA = QryAppoggio.OpenRecordset(dbOpenSnapshot)
End Function