Question

vb使用adodb连接sql详细步骤（满意答案有至少10分额外悬赏）

sql数据库登录名为sa，密码为空，数据库名为 账户管理，表名为 账户信息，包括有 编号（长度4） 姓名（最大长度10） 性别（默认男） 三个字段，编号为关键字。
已添加控件及其需要实现的功能：
text1：显示编号
text2：显示姓名
text3：显示性别
command1：根据已text1中已输入的编号查询用户信息（默认存在此编号）
command2：查看上一个（默认已查看过其中一个账户信息，循环查看）
command3：查看下一个（同command2）
command4：添加当前信息至数据库（默认无重复）
command5：删除当前显示的账户信息（默认表中有此账户）
主要回答的内容包括：
1.需要引用或者加载哪些控件（没有可不写）
2.需要使用或者添加哪些控件、模块等，以及添加后的设置（没有可不写）
3.代码讲述要求：在哪个控件的什么事件或模块中的什么地方添加什么类型的代码，比如我想在command1的click事件中触发关闭程序事件，就这样写：
command1_click：end
4.如需要设置电脑中的其他配置，请详细说明配置流程
谢谢了，我已经学会了（6.0中）：
一、引用Microsoft ActiveX Data Objects 2.6 Library；在工程中添加模块
二、模块中代码如图中所示
三、程序中代码
sql = "sqlserver语句"
abc = SQL0(sql, rs, True)（此处调用了模块中的SQL0函数，下同）
四、给某个控件赋特定值
（控件）=rs.Fields("（列名）")
五、以下是操作查询结果
rs.moveprevious 上一条
rs.movenext 下一条
rs.movefirst 首记录
rs.movelast 尾记录

Answer 1

引用
microsoft activeX Data objects 2.X library
microsoft activeX Data objects recordset 2.X

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

conn.ConnectionString = "Driver={sql server};server=(local);uid=sa;pwd=;database=账户管理"
conn.ConnectionTimeout = 30
conn.Open

rs.Open "select * from 账户信息", conn, adOpenStatic, adLockReadOnly, adCmdText

text1=rs.fields("列")'实现显示功能
...

要实现查询就在rs.open的时候把条件代入

下一个上一个用rs.movenext这种方式

添加新记录的代码
with rs
.addnew
.fields("列")=text1
...
.update
end with

删除:
rs.Delete adAffectCurrent