点击下载此附件

目的：练习 For...Next 循环

相关知识：ADO

语法：

For CounterVariable = Start To End
    [Statement block]
Next CounterVariable

或者，

For CounterVariable = Start To End Step StepValue
    [Statement block]
Next CounterVariable
其中，Step 关键字后面跟的是一个增量值，这表示每次循环执行时，计数器变量会增加 Step 的值。

代码：

Public Sub PrintFor()
    Dim rs As ADODB.Recordset
    Dim intRS As Integer '设定变量 intRS，用作循环的次数

    Set rs = New ADODB.Recordset

    rs.Open "tblContacts", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    For intRS = 1 To 5 '循环从 1 到 5
      Debug.Print rs![company] '打印记录集
      rs.MoveNext '移到下一条记录
    Next intRS '循环下一条记录

    rs.Close '关闭记录集
    Set rs = Nothing '将记录集设为空
End Sub

结果：

Nopa Auto Parts
Jiffy Auto Sales
All Start Autos
Columbia Chevy
James Auto Parts