ADO(ActiveX Data Objects,ActiveX数据对象)。使用ADO可以完成以下工作：
      1.分析已存在的数据库结构2.增加或修改表和查询3.创建新数据库4.通过修改查询所基于的SQL来改变查询定义5.遍历记录集6.管理安全7.修改表数据
Connection对象--为用户定义数据源的会话。
Connection对象在使用前必须声明，声明如下 Dim cnn as ADODB.Connection
注意：该申明指定的是ADODB.Connection,而不仅是Connection。该过程称为"消除歧义"。消除引用岐义的过程可以确保用户创建正确的对象类型。例如：ADO和DAO对象库都有Recordset对象。通过消除引用的岐义，可以清晰地指明想要创建的Recordset对象的类型。如果没有消除引用的岐义，那么在‘工具’>‘引用’中有优先级的对象库会被引用。
在Connection对象声明后，就必须实例化新的Connection对象。代码如下：Set cnn=New ADODB.Connetion。
Recordset对象--将记录作为一个组进行查看。
Recordset对象指向查询数据时返回的行集，当和Connection对象在一起使用时，要使用Recordset对象。必须首先声明它。代码如下 Dim rst as ADODB.Recordset 在声明Recordset对象之后，必须对它进行实例化。代码如下
 Set rst = New ADODB.Recordset 当和Connection对象在一起的时候，Open方法经常是指向一组记录的Recordset对象。代码如下 rst.Open"Select * from tbl表"，CurrentProject.Connection
Open方法的第1个参数是数据来源。数据来源可以是表名、SQL语句等
注意，在记录集打开后，过程执行完后要关闭记录集。关闭记录集用Close，Close方法可以释放相关的系统资源，但不能将对象从内存中清除。将Recordset对象设置为Nothing可以从内存中清除。
例：使用ActiveConnection属性创建一个记录集
Sub CreateRecordset()
    Dim rst As ADODB.Recordset                          '定义一个ADODB记录集
    Set rst = New ADODB.Recordset                       '对记录集实例化
    rst.ActiveConnection = CurrentProject.Connection    '连接记录集
    rst.Open "select * from tbl表"                      '打开记录集
    Debug.Print rst.GetString                           '执行记录集
    rst.Close                                           '关闭记录集
    Set rst = Nothing                                   '从内存中清除对象
End Sub