Visual Basic - Ayuda con Crystal

Hola a todos mi duda es la siguiente cada vez que realizo un informe en crystal report le tengo que dar la ruta exacta de la base de datos entonces cuando corro el reporte en una ruta diferente da el error de que no encuentra la base de datos, mi pregunta es ¿como hago para que cuando llame al reporte hecho en crystal tome la base de datos que se encuentre en la carpeta actual?.

De entemano muchas gracias y feliz año nuevo a todos

Si estás usando CRPE:

Set mobjReport = mobjReportApp.OpenReport(App.Path & "\MiTabla.rpt")

Set mobjReportApp = New CRPEAuto.Application

With mobjReport
.DiscardSavedData

.Database.Tables(1).Location = App.Path & "\Prueba1\Prueba1.mdb"
End With

Si quieres te envío un ejemplo.

Hola gracias por responder voy a probar y despues te digo pero si lo dices tu seguro esta bien, pero si me gustaria que me enviaras el ejemplo por favor, tambien quiero aprovechar la oportunidad para felicitarte la verdad que tus respuestas son espectaculares y ademas me he dado cuenta que ayudas a todos sin ningun interes gracias y una pregunta te molestaria si te agrego en el msn?

Otra posibilidad más sencilla, partiendo del supuesto de que lo que tú quieres es que el informe busque la base en su misma ubicación:
Abre el informe en Crystal (diseño).
En el menú pincha 'Base de Datos', y luego 'Establecer Ubicación'.
En el cuadro de diálogo clicka en 'Igual al Informe' y asunto arreglado.
Salu2.