一个简单的Ado用法示例

'以下代码示例如何打开一个名为“表1”的表，并把它的第二个字段逐一显示在立即窗口，最后关闭记录集及Ado连接。
Dim cn As New ADODB.Connection '定义一个Ado连接
Dim rs As New ADODB.Recordset '定义一个Ado记录集
Dim sql As String '定义一个字符串变量
Set cn = CurrentProject.Connection '定义cn等于当前连接
sql = "select * from 表1" '给字符串赋值
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '打开一个记录集并赋给rs
Do While Not rs.EOF '当不是记录集的结束就循环 Debug.Print rs.Fields(1) '在立即窗口显示出第二个字段的值 rs.MoveNext '记录集下移一条，如果没有这条就会死循环 Loop '循环 rs.Close '关闭记录集 cn.Close '关闭连接
Set cn = Nothing