Option Explicit
Dim oAccess As Object
Private Sub mnuBuscar:Click()
Dim acc As Access.Application
Set acc = New Access.Application
With acc
.OpenCurrentDatabase App.Path & "\ExportarExelLocal.accdb", False
.DoCmd.OpenReport "inf_Buscar", acViewPreview ' (nf_Buscar)nombre del informe
.CloseCurrentDatabase
.Quit
End With
Set acc = Nothing
End Sub