VB 与SQL连接问题？

Question

我有一段vb数据库的代码，但总是出现错误
Dim s1 As String
Dim s2 As String
Dim sn1 As String
Dim sn2 As String
Dim adocn As ADODB.Connection
sn1 = "DbServer"
sn2 = "UserDb"
adocn.ConnectionString = "driver={SQL Server;" & "server=" & sn1 & ";uid=sa;pwd=;database=" & sn2 & ""
adocn.Open在“adocn.ConnectionString= ”行总是出现 实时错误‘91’，对象变量或with块变量未设置？我已经连接了ADO与ADO recordset，为什么会出现这样的情况呢？请高手指教啊。另外，我没有安装SQL server 是不是有影响啊？

Answer 1

Dim s1 As String 
Dim s2 As String 
Dim sn1 As String 
Dim sn2 As String 
Dim adocn As New ADODB.Connection '少了个New
sn1 = "DbServer" 
sn2 = "UserDb" 
adocn.ConnectionString = "driver={SQL Server;server=" & sn1 & ";uid=sa;pwd=;database=" & sn2
adocn.Open