Visual Basic - Reporte!!!

Hola a todos/as tengo el siguiente código en un boton de comando que me imprime un informe de access

Public oAcces As Access.Application

Set oAcces = New Access.Application
oAcces.OpenCurrentDatabase "Gestión contable 2007.mdb"
oAcces.Visible = False
oAcces.DoCmd.OpenReport "Lista de costo ", acViewNormal

oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing

Ahora vienen los problemas
1) Como puedo hacer para que me siga imprimiendo normalmente el informe teniendo una contraseña en la base de datos, sin que el access al apretar el boton me pida la solicitud de contraseña (LA CONTRASEÑA ES "ANDY1045").
2) Quisiera que cuando me imprima el informe solo sea la primer pagina - NO TODAS desde visual o desde el mismo access (LO IMPORTANTE ES QUE FUNCIONE)

Muchas gracias

Andrea:

Podés hacerlo de la siguiente manera:

Public oAcces As Access.Application

Set oAcces = New Access.Application
'Recuerda que el Access distingue entre mayúscula y minuscula en la contraseña
oAcces.OpenCurrentDatabase "Gestión contable 2007.mdb" , , "ANDY1045"
oAcces.Visible = False
'La constante acViewPreview llamará el informe y no lo imprimirá
oAcces.DoCmd.OpenReport "Lista de costo ", acViewPreview
'El siguiente comando envía solo la primera página
oAcces.DoCmd.PrintOut acPages, 1, 1
oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing

**************************
Cordialmente,
Richard

Muchas gracias por tu ayuda Richard me sirvio de mucho

Hola Richard disculpame pero el tema de la contraseña no lo toma te digo el error que me pone
Compile error:
Wrong number of arguments or invalid property assignment y me mancha en el codigo de programacion .OpenCurrentDatabase
lo de la pagina todo bien, espero tu respuesta - muchas gracias

Andrea:

Ese error ocurre cuando se coloca mas de una coma (,)

Debe colocarse de la siguiente manera:

oAcces.OpenCurrentDatabase "Archivo.mdb", , "Contraseña"

El método "OpenCurrentDatabase" tiene los 3 siguientes parámetros:
OpenCurrentDatabase "Path + archivo.MDB", [Abrir en modo exclusivo],["Contraseña"]

"Path + archivo.MDB": se escribe el nombre del archivo con su path completo

[Abrir en modo exclusivo]: se escribe True Si deseas abrirla en modo exclusivo, False si deseas abrirla en modo compartida. Este parámetro es opcional

["Contraseña"]: Si la base de datos tiene contraseña, se escribe la misma entre comillas dobles

Saludos,

Richard.

HOLA RICHARD YO DE NUEVO, MIRA ASI ES COMO PONGO EL CODIGO TAL CUAL VOS ME LO PUSISTE Y ME SIGUE TIRANDO EL MISMO ERROR

oAcces.OpenCurrentDatabase "Gestión contable 20007.mdb", , "*ANDY1045*"

MUCHAS GRACIAS Y DISCULPA LAS MOLESTIAS