Tengo un Problema Con VB y Seagate Crystal Reports 8

[JuanVelasco2]

Hola Amigos... De Antemano quiero darles las gracias por su colaboracion....

Explico mi problema!!!

Estoy haciendo un proyecto en VB 6.0 y Tengo Mi Base de Datos En Access 2003.
Yo Realizo todas las cargas de mi base de datos correctamente, incluso imprimia
bien mis reportes con el Seagate Crystal Report 8... Resulta que por Necesidad tengo que colocar clave a la base de datos y como resultado tengo que no puedo imprimir los Reportes porque me da un error....

Les coloco parte de mi Rutina para que puedan ayudarme....

De Esta Manera Conecto la Base de Datos con VB.
__________________________________________________ _______________
Sub Conexion()
AdNomina.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BasedeDatos.mdb" & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=MiClave"

AdNomina.RecordSource = "Tabla"

AdNomina.Refresh
__________________________________________________ _______________

Y de Esta Manera Yo Imprimia Los Reportes antes de colocarle la clave...
__________________________________________________ _______________
Private Sub B_I_Click()
CrystalReport1.DataFiles(0) = App.Path & "\BasedeDatos.mdb"
CrystalReport1.ReportFileName = App.Path & "\ElReporte.rpt"
CrystalReport1.DiscardSavedData = 1
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowBorderStyle = 1
CrystalReport1.WindowMinButton = False
CrystalReport1.Destination = crptToWindow
CrystalReport1.PrinterSelect
CrystalReport1.Action = 1
End Sub
__________________________________________________ _______________

Por Favor Ayudenme =(