四年级导游词作文200:vb以ADO无源连接方式不能连接SQL SERVER 2000数据库？

vb以ADO无源连接方式连接同一局域网内windows 2000个人版下的sql server 7.0中的数据库正常，但在访问同一局域网内的windows 2000高级服务器版版下的sql server 2000中的数据库不正常，出现“-2147467259 Microsoft OLE DB Provider for SQL Server ”，请指教，部分源码如下：
Private Sub Command1_Click()
Set conn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
Set conn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset

'与值班用计算机10.41.170.53连接windows 2000个人版下的sql server 7.0中的数据库
conn1.ConnectionString = "Driver={sql server};server=10.41.170.53;uid=sa;pwd=;database=smgsql"
conn1.ConnectionTimeout = 60
conn1.Open
Debug.Print "与水情值班用计算机sqzb（10.41.170.53）连接OK"
rs1.CursorType = adOpenStatic
rs1.CursorLocation = adUseClient
For i = 1 To 10
rs1.Open "select * from SMG_SAVE", conn1
Debug.Print "10.41.170.53=>", i, rs1.Fields(0), rs1.Fields(1)
rs1.Close
Next i
conn1.Close

On Error GoTo ErrorHandler
'与内网服务器10.41.170.1连接windows 2000高级服务器版版下的sql server 2000中的数据库
conn2.ConnectionString = "Driver={sql server};server=10.41.170.1;database=smgsql;uid=sa;pwd="
conn2.ConnectionTimeout = 60
conn2.Open
On Error GoTo 0
On Error Resume Next
Debug.Print "与服务器（10.41.170.53）连接OK"
rs2.CursorType = adOpenStatic
rs2.CursorLocation = adUseClient
For i = 1 To 10
rs2.Open "select * from SMG_SAVE", conn1
Debug.Print "10.41.170.1=>", rs2.Fields(0), rs2.Fields(1)
rs2.Close
Next i
ErrorHandler:
Debug.Print Err.Number, Err.Source, Description
conn2.Close
End Sub