怎么读入access查询记录的其中一个啊？

  如标题，比如 一个表有 ID字段 姓名字段  我用语句select id from 表名 来查询ID字段的记录。我想把查询结果逐个输出应该怎么写代码啊？ 比如 查询结果 有 1 ， 2， 3， 4  我想把逐个获取这个结果 。第一次输出 1  第二次输出2 应该怎么写代码啊？请高手指点~

---

for i=0 to rs.RecordCount -1
    debug.print rs!ID
    rs.MoveNext
next

---

路过~~

---

Public rstTmp As Recordset
Dim strDB As String
Dim StrSQL As String
'-------------------ACCESS---------------------------------------
    Set cnDbSr = New Connection
   
    strDB = "Provider=MSDataShape.1;Data Provider=MSDASQL.1" & _
          ";Driver={Microsoft Access Driver (*.mdb)}" & _
          ";DBQ=" & App.Path & "\AAAA.mdb;" & _
          ";uid=" & _
          ";pwd="
         
    With cnDbSr
      .Provider = "MSDataShape"
      .ConnectionString = strDB
      .CursorLocation = adUseClient
      .Mode = adModeReadWrite
      .Open
    End With

    StrSQL = "Select di