[求助]：VBa如何实现客户端与服务器数据的通信

persistence2006

我想实现在客户端填写的标题栏数据直接添加到服务器的数据库里，并且也能调取服务器的数据库。
我用的是sql server2000作为后台数据库，在本地机器上使用的连接方式conn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Persist Security Info=True;Initial Catalog=DrawingManage ;Data Source=.; "
Set cmd.ActiveConnection = conn
好使，但不知道怎么实现客户端和服务器数据的通信。我试过如下的代码：
conn.Open "Provider=SQLOLEDB.1;server=202.199.225.180;User ID=sa;Password=sa;Persist Security Info=True;Initial Catalog=DrawingManage ;Data Source=.; "
Set cmd.ActiveConnection = conn
rs.CursorLocation = adUseServer
不好使，还差什么呢？

雪山飞狐(lzh)

新建一个扩展名为udl的文件，右键设置，再把文件的内容Copy到代码里

persistence2006

首先感谢lzh741206，我在明经论坛里和这里看了您许多的帖子，受益很多，明经的书我买了两本，《AutoCAD VBA二次开发教程》和《AutoCAD VBA开发精彩实例教程》都很实用。希望多出些这样的好书。
那个文件里的我用了，代码如下：
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DrawingManage;Data Source=LIU
把它后两行代码粘到客户端的程序里，但还是连接不上数据库，还需要做什么呀？是不是我理解错了？

雪山飞狐(lzh)

conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DrawingManage;Data Source=LIU"
conn.open
   Dim myRecordset As New ADODB.Recordset
    With myRecordset
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .Open strSql, conn, , , adCmdText
    End With
另外，关于ADO可以看看这里：
http://www.mccad.net/bbs/dispbbs.asp?BoardID=4&ID=21455