enlace datagrid con datareport

[amigaa]

Hola.
Tengo algunas consultas que el resultado se visualiza en un datagrid, ahora lo que quiero es imprimirlas con el datareport, este ya lo configure con los RptTextbox correspondientes pero no sé como mandar enviar el resultado de mi consulta del datareport al datagrid.
Procedimiento de consulta
Set DataGrid1.DataSource = rst

Private Sub Cmd_imprimir_Click()
Set DataReport1.DataSource = rst
DataReport1.Show
Grs.