我这边有一台服务器，用的是SQL2000,IP为10.1.1.1,数据库名称为ais20061030151249,登陆用户和密码都为sa,我用VB做了一段代码如下，想用客户机连接服务器的SQL2000 Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "driver={sql server};server=10.1.1.1;uid=sa;pwd=sa;database=ais20061030151249" conn.ConnectionTimeout = 30 conn.Open rs.Open "select * from richard2" End Sub 运行的时候提示:连接无法用于执行此操作.在此上下文中它可能已被关闭或无效. 如果我只执行下面的代码: Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "driver={sql server};server=10.1.1.1;uid=sa;pwd=sa;database=ais20061030151249" conn.ConnectionTimeout = 30 conn.Open End Sub 不会提示此错误,请问为什么会这样，怎么能通过VB连接到服务器的SQL2000,请高手指教,万分感谢!!

rs.Open "select * from richard2",conn,adOpenKeyset

太感谢楼上的了，已经不提示出错了，如果方便的话能不能讲解下上面加的几个单词是什么意思啊？我是个菜鸟，现在还啥都不懂，万分感谢！！

不就是加数据源吗.
rs.Open "select * from richard2"
你的richard2表从哪来..不就是Conn嘛..那就指定它咯..
后面的参数..你可以到百度找一个ado使用手册..入面有很多详细说明和例子.