Открытые формы доступа через Citrix в Excel VBA

Question

Я хочу открыть формы доступа через Citrix в Excel с VBA. Я попробовал это с приведенным ниже кодом, но он дает мне ошибку во время выполнения во второй строке. Как я могу открыть программы Citrix с VBA?

Dim Access As Object
Set Access = CreateObject("Access.Application")
Access.Visible = True
Access.OpenCurrentDatabase "U:\Database1.accdb"
MsgBox "Datenbank geöffnet."
Access.CloseCurrentDatabase
Set Access = Nothing