Dim rsColor As New ADODB.Recordse
rsColor.CursorLocation = adUseClient
rsColor.Open "select row,line from vPAC", cnnCabinet, adOpenForwardOnly, adLockReadOnly
If rsColor.eof And rsColor.BOF Then Exit Sub
我先定义了一个recordse叫做rscolor
rscolor!row和rscolor!line所取出来的数据很多
我想通过一个循环语句一组一组的去取这两个数据
比如过rscolor.recordcount = 1   ,取的是第一组数据
当 = 2,取的是第二组数据
直到最后一条为止
请各位大侠帮帮我