¿alguien podría decirme que hago mal, qué me falta?
Dim acApp As New Microsoft.Office.Interop.Access.Application()
'Abrimos la Base de datos
acApp.OpenCurrentDatabase("C:\listados.mdb")
acApp.DoCmd.OpenReport("IITN030F")
acApp.DoCmd.Maximize()
acApp.Application.Visible = True
nabina
![Adios](http://static.forosdelweb.com/fdwtheme/images/smilies/adios.gif)