Priorität für einzelnen Prozess MSACCESS ändern

Hallo ich habe schon etwas zum Thema gefunden, benötige aber Hilfe zur Anpassung.

Leider ändert diese Funktion alle Access Sitzungen. Ich möchte aber nur den von dieser
Funktion betroffenen Prozess ändern.

Public Function Prio(Wert As Long)
Dim Proc As Object
Set wmi = GetObject("winmgmts:{(Security)}")
Set oProc = wmi.ExecQuery("select * from win32_process where name='msaccess.exe'")
For Each Proc In oProc
i = Proc.SetPriority(Wert)
Next
End Function

Danke für eure Hilfe