Abrir un Informe de Access

kaly_20
25 de Noviembre del 2003
Hola, mi problema es que no soy capaz de que me visualize un informe que tengo hecho en access, el código que tengo puesto es el siguiente:
Private Sub Informe()
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application

'Cierro la base de datos
CNN.Close

MSAccess.OpenCurrentDatabase RutaBD, True
MSAccess.DoCmd.OpenReport "Academia", acViewPreview
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing

' Abro la base de datos
OpenBD
End Sub