vba - 通过 VBA 连接到 SQL Server

Question

我一直在尝试通过 VBA 连接到 SQL Server，但遇到了自动化错误。我不确定我在这里做错了什么？有人可以帮帮我吗？

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset

Dim strConn As String
strConn = "Driver={SQL Server}; Server=P1WSSRS01; Database=tempdb; VID=IDNumber; PWD=pass"

cn.Open strConn
cn.Close
Set cn = Nothing
MsgBox "Connected"

标签： vba