vb6连接MS SQL2000数据库的问题

不要用ADO控件，不方便。
推荐使用ADO引用，即在引用中加入ADODB．DLL。
然后按如下步骤：
1、创建对象
dim cn as new connection
dim rs as new recordset
dim s as string

'打开数据库连接
s="driver=sql server;server=.;uid=你的登录ID;pwd=你的登录密码;database=AAAA;"
cn.connctionstring=s
cn.open

'接下来用recordset对象读取数据，示例代码，因不知道你的表及结构。
s="select 字段1，字段2 from 表名 where 字段1=条件"
rs.open s,cn,3,1 '3和1的意思，请看帮助文档，目的是使用recordset对象中的数据可灵活使用。

'关闭对象
rs.close
set rs=nothing
cn.close
set cn=nothing

1，控件属性选择。
2，选择数据驱动SQLServer
3，将服务器IP，用户名，密码输入
4，选择DB 测试数据连接是否成功
5，选择需要选择的表
6，5确定后返回一个连接字符串返回到Ado控件属性。该控件就与数据库建立了连接。