Visual Basic - DESESPERACION NO PUEDO NO PUEDO

Saludos antes de nada.

Este es el codigo que tengo para pasarle un SQL desde Visual basic
pero el hijo de p.... no me da ningun error ni nada por el estilo pero cuando se abre el reporte no cambia nada sigue siendo el que tengo en el directorio por favor ayuda

Dim Report As New CrystalReport1
Dim Conexion As New Connection
Dim rs As New ADOR.Recordset

Private Sub Form_Load()

Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Eurogruas\Bases\Gestion2.mdb;Persist Security Info=False"

Screen.MousePointer = vbHourglass
rs.Open "SELECT * FROM Partes", Conexion
Report.Database.SetDataSource rs
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub

Hola; creo q se de lo que me hablas. Abre el reporte, y en el menu Archivo, asegurate de no y repito "NO" tener seleccionada la opcion "Guardar datos del informe"; a mi me paso eso y fue jodido por un tubo, espero q sea eso y todo se apañe