Consulta

Buenas tardes:
Quisiera que en una consulta con parámetros el valor de ésta fuera el valor
de un cuadro de texto de un formulario que posee registros:
1 - mopa, 2 - Jabón, 3 - Detergente...
Y en el subformulario las entradas:
fechaentrada, fechasalida,existIni, exisFinal... con muchos registros (casi
tres años), y quisiera que a través de esta consulta con la referencia del
producto.txt (ejemplo 1 - mopa), me aparecieran los registros agregados del
subformulario:
Dim Scon
Scon=inputbox("Consulta",,"Producto.txt")
Docmd.OpenQuery "ProductoBusca"
En el input me aparece el producto, y luego claro me abre la consulta de
parámetros para introducir un producto... quisiera que apareciera con valor
esta consulta. Lo que pretendo es saber cuantos registros aparece por
producto, por ejemplo: al añadir MOPA en esta consulta salen unos 500...

He probrado con:

msgbox "Este producto: " & producto.txt & " tiene " &
me.recordsetclone.recordcount
y ahí me aperecen los registros del formulario.
msgbox "Este producto: " & producto.txt & " tiene " & forms![variación de
productos].[variación subformulario].recordsetclone.recordcount... y no
funciona.

No sé si está más o menos claro.

Gracias anticipadas.