Visual Basic - Ayudenme es urgente, datagrid

Hola, espero que puedan ayudarme tengo dos preguntas, al realizar una consulta esta se despliega en un datagrid, y lo que yo quiero saber es como puedo seleccionar esa consulta y con un click mandarla a un datareport, no se si eso sea posible, o si tienen otra idea por favor ayudenme, tengo que almacenar la consulta en el datareport para que cuando se genere el reporte al final del dia aparezca la consulta seleccionada.
Y como puedo realizar un decremento en un datagrid sobre un registro de existencias al mandar la consulta al datareport.
Espero que me puedan ayudar.
De antemano muchas gracias.

mira lo unico que tenes que hacer es dar como origen de datos del datareport el recordset que enlazaste al datagrid
ej
Private sub Datagrid1_Click()
on error goto AvisoError
set datareport1.datasource=rs' recordset igual al que enlazaste el grid.
datareport1.show
exit sub
AvisoError:
msgbox err.description
si necesitas algo mas y puedo te ayudo...