excel vba ADO 如何远程连接，比如说连接局域网其它电脑上的access数据库。请给出代码

例如远程SQLSERVER

连接字符串为:

Provider=SQLOLEDB.1Password=密码Persist Security Info=TrueUser ID=用户名Initial Catalog=数据库名称Data Source=远程主机IP

代码如下：有问题，发百度消息给我。

在Microsoft visual basic中，工具－引用 Microsoft ActiveX Data Objects 2...选一个高版本的

Dim conn As New ADODB.Connection

connStr = "Driver={SQL Server}DataBase=testServer=(local)UID=saPWD=123"

conn.Open connStr '连接数据库

Dim rs As New Recordset

sql = "select * from a" '查看表a

rs.Open sql, conn, 3, 3

Do While Not rs.EOF '循环表a的内容

MsgBox (rs("field1")) '显示表中field1字段内容

rs.MoveNext

Loop

'connStr = "Driver={SQL Server}DataBase=testServer=(local)UID=saPWD=123"

'test是数据库名

'(local)是服务器名或IP地址，可以：192.168.1.1，可以是：www.sina.com.cn

'sa是数据库用户

'123是数据库用户密码

---