Prueba con ésto :
Dim Objaccess As Object
'Modo de presentar la información
Const ACVIEWDESING = 0 'Modo de Diseño
Const ACVIEWNORMAL = 1 'Modo de Impresión Directa
Const ACVIEWPREVIEW = 2 'Modo de Impresión Preliminar
'Creamos el Objeto
Set Objaccess = CreateObject("ACCESS.APPLICATION.8")
'Abrimos la base de datos
Objaccess.opencurrentdatabase "c:\sistema\sistema.mdb"
'Lanzamos el informe que nos interesa
Objaccess.docmd.openreport "catálogo de clientes", ACVIEWPREVIEW
'Hacemos visible la ventana access
Objaccess.Visible = True
MsgBox "Haga click en aceptar para cerrar previsualizacion"
Objaccess.Visible = False
End If
saludos...
