Question

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 strCncn.Close已经在工具-引用（R）中勾选了Microsoft ActiveX Data Objects 2.8 Library。
这是我在网上看到的代码和做法，都按部就班的做了，可现在还是报错，如图：

请高手们帮个忙，小弟感激不尽！

Answer 1

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim strCn As String
Dim strSQL As String
strCn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=;Initial Catalog=rk;Data Source=localhos;"
cn.Open strCn
cn.Close

Answer 2

cn.Open strCn 这句报错?

追问

一运行就出错了，看不到错在哪一行啊

追答

那你直接把程序发上来吧