Hola
Te paso el código que he utilizado yo para abrir informes de access:
Código:
Dim Informe As New Access.Application
Informe.OpenCurrentDatabase (App.path & "\Prueba.mdb")
Informe.DoCmd.OpenReport "NombreInforme", acViewPreview
Informe.Visible=True
Informe.DoCmd.Maximize
Espero que te sirva.
--Saludos--