Crystal Report - Crystal Reports y Access

Hola, que tal, saludos desde venezuela.

tengo un problema y es el siguiente..


Tengo una base de datos en access protegida por contraseña(por el menu de access, establecer contraseña), y quiero conectarla a crystal mediante codigo...

Cuando dicha base de datos no esta protegida por contraseña realizo lo siguiente..

en el reporte estando en crystal, abro el menu de base de datos (En crystal) selecciono la opcion de establecer ubicacion y aparece algo asi...
agencias!C:\Archivos de Programa\SoftHotel2006\SoftHotel2006.mdb

alli lo cambio por esto
agencias!SoftHotel2006.mdb

Luego hago lo siguiente
en el formulario 1 tengo un objeto llamado common dialog que es para abrir archivos...
dicho objeto tiene como nombre dlgarchivo
ahora bien...
ejecuto estas lineas de codigo cuando preciono el boton imprimir

CReport1.DataFiles(0)=App.Path & "\SoftHotel2006.mdb"
CReport1.Connect="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=FORM1.DLGARCHIVO.FILENAME;Persist Security Info=False;"
CReport1.ReportSource=crptReport
CReport1.ReportFileName= App.Path & "\Agencias.rpt"
CReport1.Action=1

y me corre efectivamente...
Ahora bien
cuando tengo la base de datos protegida con contraseña me da error...
solo quiero saber como hago para cambiar el DNS ya que me genera error...

Quiero crear un DSN mediante codigo, esas lineas de arriba me permiten abrir el reporte cuando la base de datos no tiene password, ahora bien... cuando genero el reporte debo crear un DSN donde le asigno la ruta y el password, como hago para cambiarselo mediante codigo, donde pueda especificar una nueva ruta, con el mismo password...

Utilizo visual basic 6.0 y crystal report 8.0

Miguel A. Núñez [email protected]

Proba de poner esto despues del Info=False en el Connect

;Jet OLEDB:Database Password=x"

donde x es la password de la base de datos