Visual Basic - ALGUN MASTER ME AYUDA IMPRIMIR UN DATA REPORT

HOLA TENGO UN PROBLEMA AL IMPRIMIR, TENGO UN DATAGRID Q ME MUESTRA LO Q HE BUSCO Y QUIERO Q ESO MISMO ME PASE AL DATA REPORT, LA BUSCQUEDA LA HACE BIEN Y ME MUESTRA TODO EN EL DATA GRID PERO CUANDO LO MANDA AL DATA REPORT ME MUESTRA ALGUNAS COSAS Y OTRAS Q NO SON DE AHI COMO LO SOLUCIONO ACA ESTA EL CODIGO

Private Sub Command1_Click()
On Error Resume Next
DataGrid1.Col = 1

re.coneccion2.Open
re.comando2 (CStr(DataGrid1.Text))
listado.Orientation = rptOrientLandscape
listado.Refresh
listado.Show
Unload Me
End Sub

DESDE YA GRACIAS