红皮书第一个实例：系统登录对话框

主要分为四步：

1.创建数据库

2.设计窗体

3。建立ADO引用

4.编写功能代码

ADO Connection：连接对象，用于创建数据连接，在使用其他对象之前必须先建立数据源连接，然后在连接对象上创建和使用其他对象。

ADO Recordset ：记录集对象，保存从数据源获得的记录集。在本例中从数据库中获得用户名和口令，从而进行验证。

建立数据库连接代码：

objcn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "DataSource="& App.Path & "\实例1.mdb"

objcn.Open

'执行查询命令，获得用户登录口令

strsql = "SELECT 口令 FROM 系统用户 WHERE 用户名='"&username & "'"

Set objrs.ActiveConnection = objcn

objrs.Open (strsql)

关闭数据库连接释放对象

objcn.Close

Set objrs = Nothing

Set objcn = Nothing