运行时错误 3709 连接无法。。。在上下文。。。

Dim cn As ADODB.Connection
Dim SqlStr As String, CnStr As String
Set cn = New ADODB.Connection          
Set rs = New ADODB.Recordset
CnStr = "Provider=sqloledb;server=abc;user id=sa;pwd=sa;database=abc"
cn.Open CnStr
If cn.State = adStateOpen Then
MsgBox "数据库连接成功！"               
End If
SQL = "select * from TT where NUM<>0"
rs.Open SQL
。。
提示错误3709，为什么呢？之前提示了  数据库连接成功！"