Private Sub Command2_Click(Index As Integer)
Dim n As Integer
n = Index
Select Case n
Case 0
rs.MoveFirst
Case 1 ' 上一个
rs.MovePrevious
If rs.BOF Then rs.MoveFirst
Case 2 ' 下一个
rs.MoveNext
If rs.EOF Then rs.MoveLast
Case 3 ' 末一个
rs.MoveLast
End Select
End Sub