Forse questo va, per ora si blocca e non so perché ma in effetti il file poi lo apre:



Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase (Application.CurrentProject.Path & "\xxx.mdb"), False
objAccess.DoCmd.OpenReport Nome_Rep
Set objAccess = Nothing