Crystal Report - Ayudenme por favor, paso el programa

Hola, gracias por la respuesta que me puedas brindar tengo el siguiente incoveniente :

1ro. Le puse contraseña a mi base de datos que esta en acces xp
2do. El reporte de cristal report ha sido generado desde visual basic

Sin la contraseña mis reportes en Crystal Report trabajan normal, ahora con la contraseña me sale el siguiente error :

LOGON FAILLED
DETAILS: ADO ERROR CODE:0X80040E4D
SOURCE: MICROSOFT JET DATABASE ENGINE
DESCRIPTION: NO ES UNA CONTRASEÑA VALIDA
SQL STATE:3031
NATIVE ERROR:-124782449

he tratado de solucionarlo poniendo el password en el reporte que esta en crysrtal, en su coneccion :
database name : C:\SYS\BD\PPTOS.mdb
database type : access
user id : admin
password :
jet system database :
jet database password :12345678 -----> Aca es donde coloco el password

cuando le doy siguiente y acepto me sale el siguiente mensaje :

"THE DATABASE IS UP TO DATE"

hasta ahi todo bien, ejecuto el programa y me vuelve a salir el erro antes mencionado, verifico nuevamente las propiedades de la base de datos y me doy con la sorpresa de que el :

jet database password : -----> Esta en blanco, no esta el password que le puse

No se como puedo solucionarlo o que el password se quede ahi, no entiendo , agradesco las posibles respuestas.

Si me dan su correo les paso el programa para que haguen las observaciones del caso y comprendan mi problema.
Mi email es :[email protected]

Como no mensionas de momento con ke versión de VB y CR trabajas, haré de cuenta ke es VB6 y CR8.

Al llamar a tu reporte inserta la siguiente línea antes de action como se muestra:

CR1.Connect = ";PWD=" & Trim(TxtClave)
CR1.Action = 1

No te pido me envies tu código y reporte ya ke trabajo con VB.NET Y CR9, si trabajas con la misma versión de VB ke yo, puedes enviarmela si lo deseas, la versión de CR no importa si es 8 o 9.

Saludos

Los programas que utilizo es el visual basic 6.0 y el crystal report9.0 el programa ha sido desarrollado de la siuiente forma:

1ro... Desde el Visual Basic a sido generado el reporte del Crystal report (al momento de generarse se crea un form1 en la parte de formularios y en la parte de diseñadores un crystalreport1)

2do..Yo anteriormente tenia otro form (Llamemosle formprincipal) donde tengo dos datacombos las cuales pasan los parametros de filtro que se deben de mostrar en el reporte crystal

3ro ...tengo tambien un command (llamado impresion) el cual donde hacias click t mostraba el reporte y pasa los parametros el contenido de este formulario es:

Private Sub impresion_Click()

CrystalReport1.ParameterFields.GetItemByName("OBRA").AddCurrentValue DataCombo1.BoundText //parametro 1
CrystalReport1.ParameterFields.GetItemByName("FECHA").AddCurrentValue CDate(DataCombo2.BoundText) //parametro 2
Form1.CRViewer91.ReportSource = CrystalReport1
Form1.Show // como mencione anteriormente este form ha sido creado

end sub

4to...el form2 que contiene el crystal tiene la siguiente forma :
Private Sub Form_Load()

Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

end sub

PREGUNTA :
¿ en que formulario y en que evento pongo lo que tu me estas diciendo :
CR1.Connect = ";PWD=" & Trim(TxtClave)
CR1.Action = 1

OJO:
no me sale el .connect ni el action

OBSERVACION:
eL CRYSTAL REPORT A SIDO GENERADO DENTRO DEL VISUAL BASIC 6.0, NO DESDE EL PROPIO PROGRAMA CRYSTAL REPORT.

gRACIAS POR LA AYUDA QUE ME PUEDAS BRINDAR

No alcanzo a comprender xq el 2do. formulario, pero haz lo siguiente:

Private Sub impresion_Click()

CrystalReport1.Connect = ";PWD=" & Trim(TxtClave) '<--- AKÍ OBVIAMENTE LA CLAVE REAL
CrystalReport1.ParameterFields.GetItemByName("OBRA").AddCurrentValue DataCombo1.BoundText //parametro 1
CrystalReport1.ParameterFields.GetItemByName("FECHA").AddCurrentValue CDate(DataCombo2.BoundText) //parametro 2
Form1.CRViewer91.ReportSource = CrystalReport1
Form1.Show // como mencione anteriormente este form ha sido creado

end sub

Gracias por la explicacion, pero el problema es que no me sale el CONNECT, se supone que cuando tu pones el punto automaticamente aparecen los eventos o propiedades del crystalreport1. pero nada , igual le pongo el CONNECT y cuando ejecuto el programa me sale:

ERROR DE COMPILACION:
NO SE ENCONTRO EL METODO O EL MIEMBRO DE DATOS

:( y me sombrea el CONNECT.

TENGO HABILITADO EL cRYSTAL REPORT VIEWER CONTROL 9.0

no se k puede estar pasando , gracias maigo por tu ayuda

Ok, olvida lo anterior.
Por desgracia no puedo hacer pruebas con tu código, sin embargo te envio este código para accesar a una db de access la cuál es accesada sin clave y dos opciones con clave (selecciona sólo una), observa lo ke tienes y agrega lo pertinente, :

Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Set crReport = crApp.OpenReport(App.Path & "\TuReporte.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo App.Path & "\TuDB.mdb" '<- sin clave
tbl.SetLogOnInfo App.Path & "\NombreDB.mdb", , , "contraseña" '<- con clave
tbl.SetLogOnInfo "msaccess", App.Path & "\NombreDB.mdb", "admin", "contraseña" '<- con clave
Next
CRViewer.ReportSource = crReport
CRViewer.ViewReport

SALUDOS

Parecido, esta está probada por mi (usar el each está mas fino reconozco)

For i = 1 To MiRpt.Database.Tables.Count
MiRpt.Database.Tables(i).SetTableLocation MiBase, MiRpt.Database.Tables(i).Name, ""
MiRpt.Database.Tables(i).SetSessionInfo "", "LaContraseña
Next

No importa la contraseña ni la ubicación de la base de datos SI TU LE PASAS EL RECORDSET YA ARMADO (con el SETDATASOURCE). Luego con la fórmula se hace la selección.