Visual Basic - Urgente!!¿Nadie me puede ayudar?

Hola:

Necesito imprimir el contenido que me muestra un data grid. Para ello tengo creado el reporte. Utilizo data enviroment. Sin embargo el reporte toma todos los datos de la base de datos. No se como relacionar mi reporte al contenido que tiene la data grid.

Estoy utilizando ADO Control.

Si alguien me puede ayudar se lo agradecería muchísimo.

Si tu Datagrid esta enlazado a un ADODC1
Set Reporte.DataSource = ADODC1
Reporte.Show

Gracias por responder Juan_K. La verdad es que soy nuevo en visual. Bueno seguí tus indicaciones. Dentro del boton agregue el código, pero me arroja el siguiente mensaje:

Error ¡No se pudieron obtener los conjuntos de filas del origen de datos actual!

El código que utilizo es el siguiente:

Private Sub Command1_Click()
'Screen.MousePointer = vbHourglass
'Load DataReport1
'Screen.MousePointer = vbDefault
'DataReport1.Show vbModal

' *** El código anterior es el que estaba utilizando pero me
'arroja todo el contenido de la DB y no solo
' lo que contiene el data grid ***

Set DataReport1.DataSource = Adodc1
DataReport1.Show

End Sub

Si me puedes indicar que es lo que realmente esta fallando te lo agradecería enormemente.

De todas formas gracias de antemano

Luciano.

Lo mas probable es q tengas algun problema con un select
Si deseas enviame tu codigo completo y le echo un vistazo.

el error que muestra Luciano no es proveniente de tu sentencia, debes tener algo mal x ahi.

Gracias:

Este es el código que utilizo detrás de un text para filtrar los datos que necesito:

Private Sub Text1_Change()
Me.Adodc1.RecordSource = "SELECT * FROM Tabla1 WHERE Nombre LIKE '" & Me.Text1.Text & "%' ORDER BY Nombre"
Me.Adodc1.Refresh
End Sub

También en el Control ADO PROPIEDADES >>> ORIGEN DE REGISTROS >>>
Agregué el siguiente Texto de comando SQL:

SELECT "SELECT * FROM Tabla1"

Si alguien puede decirme que sucede.... de antemano muchas gracias...

tus sentencias estan bien, debes estar haciendo algo mal