怎样用VBA实现对局域网内另外一台计算机上SQL Server 的读写啊，很急希望高手指教，送50分

[cqin126]

我用的是ADO,在本地读写一点问题都没有，程序如下，
Dim cn_list As New ADODB.Connection
Dim rs_list As New ADODB.Recordset
Dim SQL3 As String
SQL3 = "SELECT * FROM [key]"

With cn_list
.Open "Driver={SQL Server};server=QINCHUAN;uid=sa;pwd=829698;database=newdatabase"
End With

rs_list.Open SQL3, cn_list, adOpenDynamic, adLockPessimistic, adCmdText

[dlpseeyou]

Dim cn_list As New ADODB.Connection
Dim rs_list As New ADODB.Recordset
Dim SQL3 As String
SQL3 = "SELECT * FROM [key]"

With cn_list
.Open "Driver={SQL Server};server=QINCHUAN;uid=sa;pwd=829698;database=newdatabase"
End With
if rs_list.state=1 then rs_list.close
rs_list.Open SQL3, cn_list,3,2

[yadongfile]

只需要在cn_list 把本地服务器换成需要的ip地址就可以了 不需要其他的改变