ADO
ADO是Microsoft ActiveX Data Objects的缩写，使客户端应用程序能够通过OLE DB提供访问和操作在数据库服务器中的数据。
ADO支持用于建立基于client/server和web的应用程序的主要功能。其主要优点是易于使用、高速度、内存支出和占用磁盘空间少。
ADO主要对象介绍
Connection对象用于建立与数据库的连接。通过连接可以从应用程序访问数据源。
Connection对象定义了将对数据源执行的指令命令。可以在数据中进行添加，删除，更新或在表中进行数据查询。返回的结果保存在recordset对象中。
Recordset对象表示的是来自基本表或命令执行结果的记录集合。任何时候，recordset对象所指的当前记录均为集合内的单个记录。使用ADO时，通过recordset对象可以对几乎所有数据进行操作。在一个connection对象上，可以同时打开多个recordset。
基本ADO编程步骤
连接到数据源
指定访问数据源的命令
执行命令
对查询数据进行更新，增加，删除等操作以及执行对其他数据库操作
将执行结果更新到数据库
关闭连接
ADO应用示例
'******************************************************
' 作用：连接到 calc.mdb ，并查询里面的内容
'******************************************************
' 作用：连接到 calc.mdb ，并查询里面的内容
'******************************************************
Dim cnn,rst,strCnn
'连接到数据源
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\calc.mdb;Persist Security Info=False"
Set cnn = CreateObject("ADODB.Connection")
cnn.Open strCnn
Set rst = CreateObject("ADODB.recordset")
'查询calc的内容
rst.Open "select * from calc",cnn
rst.MoveFirst
'做循环，不到文件底部，不退出循环
Do While Not rst.EOF
MsgBox Trim(rst.Fields("TestResult"))
rst.MoveNext
Loop
'关闭连接
rst.Close
cnn.Close
' 置空对象
Set rst = Nothing
Set cnn = Nothing
