'**************************************************************************************************

' abre la base de datos indicada y ejecuta el informe solicitado

' ESH 29/06/04 17:45

'**************************************************************************************************

Dim strArchivo, _

    acApp

strArchivo = "La Ruta de tu base de datos.mdb"

' creo un objeto Access
Set acApp = CreateObject("Access.Application")

' puedo mostrarlo o no
acApp.Visible = True

' abro la base de datos
acApp.OpenCurrentDatabase strArchivo

' Imprimo el informe

acApp.DoCmd.OpenReport "Tu Informe ", acViewNormal

' cierro y salgo

acApp.Quit

Set acApp = Nothing