Se abre con openrecordset del Querydef, como si abrieras una tabla, pero previamente le estableces los valores a través de la coleccióm Parameters que tiene el QueryDef:
Dim nombrequery as QueryDef
dim rs as Recordset
Set nombrequery=nombrebase.CreateQueryDef(nombreprocedimiento)
nombreQuery.Parameters!nombredelParámetronelaBD=nuevoValor
Set rs=nombrequery.openrecordset(sololéctura)
Ya está
