vab-access显示下一条数值

Sub 按钮18_Click()

Set Cnn = CreateObject("ADODB.Connection")

stPath = ThisWorkbook.Path & Application.PathSeparator & "人力资源管理系统.mdb"

Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & stPath & ";Jet OLEDB:Database Password=" & "access"

  sql = "select 订单编号, 客户, 时间 from 客户基本信息"

Set rs = New ADODB.Recordset

rs.Open sql, Cnn, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount

    MsgBox rs.Fields(0).Value

    rs.MoveNext '这就是下一条

Next i

End Sub