可以用ADO直接访问远程机器,只要你知道远程机器的IP地址。
dim conn as New Adodb.Connection
conn.Open(DRIVER={SQL SERVER};SERVER=192.168.1.1;UID=SA;PWD=;DATABASE=test;)
dim rs as New adodb.recordset
rs.open "select * from student",conn,adOpenKeyset,adLockOptimistic
rs.close
set rs=nothing
conn.close
set conn=nothing