Excel中的开放式访问表单

Question

我的代码有问题。我有一个Excel工作表，我想用VBA打开访问表。但是我收到此错误“运行时错误429-无法创建Active-X组件”

Sub opp()

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

End Sub