VB数据集

dim Re as recordset

dim rs1 as recordset
re.movelast '移动到数据表的最后
re.movefirst '移动到数据表的最前
re.movenext '移动到数据表的下一条记录

rs1.Move n 向后移n条，若n为负数，则向前移
rs1.MoveFirst 移到第一条
rs1.MovePrevious 移到上一条
rs1.MoveNext 移到下一条
rs1.MoveLast 移到最后一条