Visual Basic - NO PUEDO VER MI REPORTE DE CRISTAL 4.6

Hola, tengo un programa en visual basic con base de datos de acces y crystal report 4.6, lo que pasa es que en algunas maquinas donde instalo el sistema quiero visualizar el reporte y parece que lo carga y despues lo pierde, al final no muestra nada.
En otra maquina visualiza el reporte pero no muestra el contenido (la informacion), solo muestra el titulo del reporte.
Pero en otra maquina si visualiza y muestra el reporte correctamente.
Les agradecere si me ayudan a resolver este problema

la razon es que tienes mal ruteados los reportes.
Luisa tu problema es tipico y la solucion es simple.
Lo primero que debes hacer es verificar que no este activada la casilla
guardar datos. en Cristal
Lo segundo es indicar la ubicación de las tablas que estas utilizando en tu informe de cristal, colocale la opción "Igual al informe".
con esto las tablas no quedaran liadas a una ubicación especifica, (Por ejemplo: "C:\misreportes\......", que si otro PC no tiene esa ruta nunca te mostrara la información y menos te abrira el reporte Cristal.
Luego por visual basic colocas el siguiente Código.

aca tienes un ejemplo para que no tengas problemas con tus reportes:

If Cbo_Perfil1.Text = "Todos" Then
limpiar_cristal 'esto te evita qu de un error por desborde de buffer cuando ejecutas los reportes de manera seguida
Set Db = OpenDatabase("c:\mibd.mdb", False, False, "1425"
) sql = ""
sql = "select * from Tab_Usuarios order by Grupo"
Set rs = Db.OpenRecordset(sql, 2)
If rs.RecordCount > 0 Then
Report1.DataFiles(0) = "c:\midb.mdb" ' aca ruteas todos los reportes desde visual y te aseguras que solo busquen esa ruta"
Report1.WindowState = crptMaximized
Report1.WindowMaxButton = True
Report1.WindowMinButton = True
Report1.WindowTitle = "Listado de Usuarios del Sistema"
Report1.ReportFileName = App.Path & "\listadousuarios1.rpt"
Report1.PrintReport
Else
MsgBox "Listado en Blanco, Imposible imprimir", vbExclamation, Me.Caption
Exit Sub
End If
End If

Sub limpiar_cristal()
For I = 0 To 100
Form_ConfiguracionCuentas.Report1.Formulas(I) = ""
Next I
End Sub