Tengo un problema me pidieron modificar el código para dejar funcionando un reporte, pero utilizando la misma conexión, el código crea una base datos Access donde guarda los datos para el informe pero antes de emitir el rpt pide password. Alguien puede ayudar pues e perdido mucho tiempo en esto, el código es el siguiente.
'Obtiene el Workspace predeterminado.
Set wrkPredeterminado = DBEngine.Workspaces(0)
'Asegúrese de que no existe un archivo la base de datos nueva.
If Dir(glbNombreBasePaso) = "" Then
'Crea a una base de datos nueva encriptada con la
'secuencia de intercalación especificada.
Set dbBaseDato = wrkPredeterminado.CreateDatabase(glbNombreBasePaso , dbLangGeneral)
End If
'Habre la Base de Datos
Set dbBaseDato = wrkPredeterminado.OpenDatabase(glbNombreBasePaso)