EXCEL Vba 连接SQL SERVER问题

代码如下：Dim cn As New ADODB.ConnectionDim strCn As StringDim strSQL As StringstrCn = "Provider=sqloledb;Server=localhost;Database=RK;Uid=sa;Pwd=;Integrated Security=true;"cn.Open strCn
cn.Close已经在工具-引用（R）中勾选了Microsoft ActiveX Data Objects 2.8 Library。这是我在网上看到的代码和做法，都按部就班的做了，可现在还是报错，如图：请高手们帮个忙，小弟感激不尽！

是不是引用的版本不对， 引用 2.5 试试

或者再试试， 创建对象的方法：
把Dim cn As New ADODB.Connection 这句删了 换成
Set cn = CreateObject("adodb.connection") '创建ado对象
====================================================================
'引用法
'工具--引用---Microsoft Activex..D...O"
'引用后再声明: Dim conn As New Connection 声明链接对象
' Dim rst As New Recordset 声明记录集对象
'创建法
'使用CreateObject函数创建
Set cn = CreateObject("adodb.connection") '创建ado对象
Set rst = CreateObject("ADODB.recordset") '创建记录集追问

查清楚了，是Integrated Security=true;这句有问题，删除以后就没有问题了。但是新问题有出现了，我想用WINDOWS身份验证连接MSSQL数据库，不知道代码怎么写的？
其实Integrated Security=true;这句就是我查到的WINDOWS身份验证连接MSSQL的代码，可惜不是VBA上面用的，让我移花接木用了一用，结果导致了之前的错误。

追答

你的vba程序是和sql server在同一台电脑上吗，要是同一台电脑是可以用此方法，连接字符串：

"Server=LocalHost;Integrated Security=SSPI;Database=Northwind");

这里的 Integrated Security=SSPI 表示windows验证。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/vqmpspqm2.html