用vba如何连接网上的sql数据库?

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

在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是数据库用户密码

你是连远程计算机，myServerAddress 用ip地址，要用用户名myUsername密码myPassword登陆，sqlserver 远程连接设置成，同时用tcp/ip 和 name pipes

连接字符串

Driver={SQL Server}Server=myServerAddressDatabase=myDataBaseUid=myUsernamePwd=myPassword

---