adodb连接在虚拟机上不起作用

Question

在Excel VBA中，我曾经能够连接到Azure数据库，并通过虚拟机将最新数据提取到电子表格中。但是，这不再起作用，当我在桌面上运行该代码时，相同的代码也可以工作并更新。

代码如下：

Set objMyConn = New ADODB.Connection
Set objMyRecordset = New ADODB.Recordset
Dim LinkSQL As String
objMyConn.ConnectionString = "Provider=SQLNCLI11; Password=" & """###""" & "; User ID=###; Initial Catalog=###;" & "Data Source=###;"
LinkSQL = "###"
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open LinkSQL
Sheet1.Range("A2").CopyFromRecordset (objMyRecordset)
objMyRecordset.Close
objMyConn.Close

谢谢