Visual Basic - Abrir un Informe de Access

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

Solo tiene que arreglar algunas cosas

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

Eso es todo
Saludos