Code:
[B]Sub PrintRelatorio()[/B] Dim oAccess As Microsoft.Office.Interop.Access.Application ' Start a new instance of Access for Automation: oAccess = New Microsoft.Office.Interop.Access.Application() ' Open a database in exclusive mode: oAccess.OpenCurrentDatabase(filepath:="C:\PM_GEA\GEA\tmp\FICH_Access\Link_GEA.accdb", Exclusive:=True)