Visual Basic - Vb6 y Subreportes Crystal 8.5

Si alguien sabe me sería de mucha ayuda por favor. Tengo una aplicación Vb6 que emite reportes con el Crystal 8.5. A un reporte que estaba funcionando muy bien le agruegue al final un subreporte. Resulta que al correr en mi PC no hay problema. Ahora al cambiar la base de datos de lugar ya el reporte no funciona. El mensaje de error es que no encuentra la base de datos. Si le elimino el subreporte, en éstas condiciones, vuelve a funcionar.

Gracias por su ayuda.

Por si a alguien le pueda interesar, encontré la solución. Aqui va:

ctlImpresion.ReportFileName = strPathReport & "" & vNombreRpt
ctlImpresion.SubreportToChange = ctlImpresion.GetNthSubreportName(0)
ctlImpresion.DataFiles(0) = vPathDB
ctlImpresion.SubreportToChange = ""

vPathDB = Dirección de la Base de Datos.

Cualquier duda a las ordenes.

Saludos
Carlos

no he podido mandar a imprimir mi reporte que hice en cristal report 8.0desde vb6 este reporte contiene 3 subreportes y por mas q le busco no doy. ¿podrian darme la solucion? desde el diseñador de cristal funciona muy bien el problema es en vb me marcar error 2000 "ningun error" . por favor ayudenme ya no se q hacer

Y no te funcionó el ejemplo que puse de la manera que yo solucioné? Fijate:

ctlImpresion.SubreportToChange = ctlImpresion.GetNthSubreportName(0)
ctlImpresion.SubreportToChange = ""

Muchas gracias funciona perfectamente!!!