刚用VB的一个小问题，求大家帮帮忙！挺急的！在线等！

Question

我的机器名为shd ,服务器的机器名为noah, 用Sql server2000已经连接上了，写的语句如下：
ConnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=newwaywork;Data Source=NOAH"RS.ConnectionString = ConnString
RS.RecordSource = "select * from 用户管理"
RS.Refresh
两台机器同时运行此程序时报错是：
[DBNETLIB][ConnecttionRead(recv()).]一般性网络错误。请检查网络文档。
点击确定按钮又报错：
实时错误'-2147467259(80004005)'
对象'refresh'的方法'IAdodc'失败。

Answer 1

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.RecordsetConnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=newwaywork;Data Source=NOAH"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from 用户管理", CN, adOpenDynamic, adLockOptimistic

Answer 2

    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.RecordsetCN.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=newwaywork;Data Source=NOAH"    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from 用户管理", CN, adOpenDynamic, adLockOptimistic