Excel VBA代码-更改OLEDB连接

我正在Excel中创建一个按钮，该按钮根据特定Excel工作表中输入的几个参数更改连接字符串（到SQL Server）。我发现了这个链接

我得出以下结论，但它不起作用

Sub GetConnections()
    Dim ConnectionString
    ConnectionString = "DRIVER=SQL Server;SERVER=.;UID=sa;PWD=123;APP=Microsoft Office 2013;WSID=MachineID;DATABASE=X"

    Dim w As Worksheet
    Dim cn As WorkbookConnection
    Dim OdbcCn As ODBCConnection
    For Each cn In ThisWorkbook.Connections
        Set OdbcCn = cn.ODBCConnection
        OdbcCn.SavePassword = True
        OdbcCn.Connection = ConnectionString

    Next
MsgBox ("Done")
End Sub

当我运行上面的代码时，我得到 运行时错误（1004）： 应用程序定义或对象定义错误

调试器突出显示此“OdbcCn.Connection=ConnectionString”

非常感谢你的帮助