Sobre ejecutar reportes de Access desde Visual Basic

[lokoman]

Estuve probando y caí en esto:

Código vb:

Private Sub Command2_Click()
 
    Dim appAccess As Access.Application
    Set appAccess = New Access.Application
    Dim db As String
    
' abre la base de datos con el método OpenCurrentDatabase
    db = App.Path & ("\BASEDATOS.mdb")
 
 ' abre el reporte con el método OpenReport para imprimirlo
    appAccess.OpenCurrentDatabase db
    appAccess.DoCmd.OpenReport "NOMBRE REPORTE", acViewPreview
    appAccess.DoCmd.Maximize
    appAccess.Visible = True
    
' libera los recursos
    Set appAccess = Nothing
End Sub
 

El problema que veo, es que Access se abre junto con el reporte... el usuario podria modificar algo en las tablas o en el mismo reporte