Mensaje enviado por "Alberto Nieto Ibarrecheba" <alberton@cbbilbao.com>

Yo lo hago utilizando el API de Crystal Report y más o menos puede ser así

Dim iJob As Integer
Dim rLoc As PETableLocation
Dim i As Integer, tablas As Integer
Dim LogOnInfo As PELogOnInfo

'Abrimos un trabajo
iJob = PEOpenPrintJob("Listado.Rpt")

'Preparamos la ubicación de la base de datos
rLoc.StructSize = PE_SIZEOF_TABLE_LOCATION
rLoc.Location = "C:\Datos.mdb" & Chr$(0)

'Preparamos la información de la sesion con la clave
With LogOnInfo
        .StructSize = PE_SIZEOF_LOGON_INFO
        .Password = "ALBERTO" & Chr$(0)
End With

'Obtenemos el total de tablas del reporte
tablas = PEGetNTables(iJob)

'Por cada tabla establecemos la ubicación de la base de datos
'y la información de la clave
For i = 0 To tablas - 1
        bOk = PESetNthTableLocation(iJob, i, rLoc)

        bOk = PESetNthTableLogOnInfo(iJob, i, LogOnInfo, False)
Next

'Después se puede envia el listado a la impresora o a la pantalla
'Y Se termina
PEClosePrintJob iJob

Espero que te sirva
Un saludo.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Alberto Nieto Ibarrechebea
Sestao-Bizkaia
E-Mail: alberto@cbbilbao.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


> -----Mensaje original-----
> De: Emilio Coronel [mailto:ecoronel@personal.com.py]
> Enviado el: jueves, 27 de julio de 2000 19:05
> Para: visualbasic-esp@egroups.com
> Asunto: (VB-ESP) Crystal Report con contraseña
>
>
>
>
> hola a todos
> alguien sabe como puedo hacer si tengo una base de datos en Access que
> tiene contraseña, para imprimir un reporte en Crystal report
>
> Gracias
>
> Emilio