Visual Basic - Error de visualizacion

Hola a todos.
Estoy realizando un proyecto con visual basic, access y crystal report,por medio de una odbc. ayer lo instale en la máquina donde va funcionar, y se presento un problema al visualizar el reporte, me dice que no encuentra la base de datos, la coloque en la misma dirección de cuando estaba programando, pero me siguio apareciendo el mismo error.
Que puedo hacer, como lo puedo solucionar.

Gracias por su ayuda. Espero sus comentarios.

Fijate como llamas al reporte:

With CrystalReport1
.Connect = "DRIVER=Microsoft Access Driver (*.mdb);UID = admin;FIL=MS Access;DriverId = 25;DefaultDir=" & App.Path & ";DBQ=" & App.Path & "\Prueba.mdb"

.ReportFileName = App.Path & "\Prueba.Rpt"
.RetrieveDataFiles
.DataFiles(0) = App.Path & "\Prueba.mdb"

.Destination = crptToWindow
.PrintReport
End With

Cecilia aplique tú código pero no me visualiza el reporte, no lo deja en pantalla, ni lo envía a la impresora,

With FrmMenuPrincipal.REPORTES
.Connect = "DRIVER=Microsoft Access Driver (*.mdb);UID = admin;FIL=MS Access;DriverId = 25;DefaultDir=" & App.Path & ";DBQ=" & App.Path & "\BDUsuarios.mdb"
.ReportFileName = App.Path & "\Reportes\REspecialidad.rpt"
.RetrieveDataFiles
.DataFiles(0) = App.Path & "\BDUsuarios.mdb"
.Destination = crptToWindow
.PrintReport
End With

hay algo mal escrito??????????

cambie el código por

With FrmMenuPrincipal.REPORTES
.Connect = "DRIVER=Microsoft Access Driver (*.mdb);UID = admin;FIL=MS Access;DriverId = 25;DefaultDir=" & App.Path & ";DBQ=" & App.Path & "\BDUsuarios.mdb"
.ReportFileName = App.Path & "\Reportes\REspecialidad.rpt"
.RetrieveDataFiles
.DataFiles(0) = App.Path & "\BDUsuarios.mdb"
.Destination = crptToWindow
'.PrintReport
.Action = 1
End With

marca "error detected by database dll"

Gracias por su ayuda