Public objconnection As New adodb.Connection
Public objrecordset As New adodb.Recordset
Sub main()
objconnection.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=hang card ;data source=(local)"
objconnection.Open
frmmain.Show

End Sub
Public Sub execute(spl As String)
objconnection.execute spl
End Sub
Public Sub records(sql As String)
Set objrecordset = objconnection.execute(sql)
End Sub
这段代码是书上的，为什么显示用户sa登录失败，或是 连接失败什么的，求高手指点

我已经把sqlserver2000安装了sp4补丁。但是，在服务器端网络实用工具中没有任何协议。
 但是在客户端的网络实用工具中有

 怎么解决啊？

关键是   在服务器端网络实用工具中没有任何协议。但是在客户端的网络实用工具中有。这个咋解决啊
还有就是我虽然连了数据库，但是根本没有往server里写数据，怎么解决？  新手，不要见笑啊。。。

[ 本帖最后由 以凯歌之名 于 2012-12-3 13:43 编辑 ]

关键是   在服务器端网络实用工具中没有任何协议。但是在客户端的网络实用工具中有。这个咋解决啊
还有就是我虽然连了数据库，但是根本没有往server里写数据，怎么解决？  新手，不要见笑啊。。。