speed up Parametrized Query

[luca90]

I use this code in vb6 and DAO:

...
        DoEvents
        Set QRY = DB.QueryDefs("AGG_ALBERO1")
        QRY.Parameters("[DATA_OPE1]").Value = Format(DATA_OPE, "DD/MM/YYYY")
        QRY.Execute

...

1) i can speed up that?

2) i can insert into execution QRY the param adExecuteNoRecords? (in my case the query dont retiurn recordset but only Update a table)

3) i need to execute the QRY with other sintiax?

Tks.

QUERY:

UPDATE CONTANTI INNER JOIN ANA_AG ON CONTANTI.SPORT = ANA_AG.AG SET CONTANTI.DT = [ANA_AG].[DT], CONTANTI.DESCR_DT = [ANA_AG].[DESCR_DT], CONTANTI.AREA = [ANA_AG].[AREA], CONTANTI.GRUPPO = [ANA_AG].[GRUPPO]
WHERE (((Len(Trim([CONTANTI].[DT])))=0) AND ((CONTANTI.COD) Not In ('GA','CA')) AND ((CONTANTI.DATA)=[DATA_OPE1])) OR (((Len(Trim([CONTANTI].[DT]))) Is Null))