Dim appAcc As Access.Application
Set appAcc = CreateObject("Access.Application")
appAcc.OpenCurrentDatabase "PERCORSO DB", False

utilizzando questo codice è come se caricasse il db ma nn fa vedere la prima maschera ke si carica all'avvio