Reporte en access

Te voy a poner como mi preguntador favorito. Ya me suena tu nick y todo.
:)
A ver con esta clase
Option Explicit
Dim app As Access.Application
Dim objInforme As Access.Report
Dim Form As Access.Form
'Dim hoja As Excel.Worksheet
Dim blncargado As Boolean
Public Sub AbrirAccess(archivo As String)
Set app = New Access.Application
app.OpenCurrentDatabase (archivo)
'Set Libros = app.Workbooks
'Set Libro = Libros.Open(archivo)
blncargado = True
End Sub
Public Sub AbrirInforme(Informe As String)
On Error GoTo HojaNoExiste
app.DoCmd.OpenReport Informe, acViewPreview, , , acWindowNormal
Set objInforme = app.Reports(Informe)
objInforme.Visible = True
ShowWindow objInforme.hwnd, 5
app.Visible = True
Exit Sub
HojaNoExiste:
MsgBox "Error, Access debe tener un Informe llamado '" & Informe & "'"
Me.CerrarAccess
End Sub
'Public Function DevolverCelda(X As Long, Y As Long) As String
' DevolverCelda = hoja.Cells(X, Y)
'End Function
'Public Sub PonerValorCelda(X As Long, Y As Long, Valor As String)
' hoja.Cells(X, Y) = Valor
'End Sub
''Public Sub PonerValorTituloCelda(X As Long, Y As Long, Valor As String)
'' hoja.Cells(X, Y).Font.Bold = True
'' hoja.Cells.BorderAround
'' hoja.Cells(X, Y) = Valor
''End Sub
Private Sub Class_Initialize()
blncargado = False
End Sub
Private Sub Class_Terminate()
If blncargado Then
app.CloseCurrentDatabase
End If
blncargado = False
Set app = Nothing
End Sub
Public Sub CerrarAccess()
blncargado = False
End Sub
y con esta llamada lo hacia yo. Pero creo que me fallaba en algo. Ojeala...
Private Sub CargarInformeEmpresa()
Dim objAccess As New ClsAccess
objAccess.AbrirAccess (CONST_PATH_BBDD)
objAccess.AbrirInforme (CONST_NOMBRE_INFORME)
objAccess.CerrarAccess
End Sub
Suerte y un saludo majo...
(Ademas me sueles puntuar de vicio... jjejejejeje)