Question

VB 在显示数据库内容时，下一条和上一条怎样循环

我是用Vb连接到了数据库，在显示的时候有上一条和下一条两个按钮选择，但是上一条到顶以后就不能继续了。我的编码是这样的。
Case 0
rs.MovePrevious
Case 1
rs.MoveNext
If rs.EOF Then rs.MoveFirst
这样下一条到底后就会从第一条继续。我现在想让上一条到顶后也能从最后一条开始一次往前。但不知道怎么弄了。
（汗！！！我表达滴不太好啊，求帮助~~）

Answer 1

if rs.bof then rs.movelast

Answer 2

上一条循环
adodc.resourceSet.moveFirst
if adodc.resourceSet.BOF then
adodc.resourceSet.moveFirst
end if
下一条循环
adodc.resourceSet.moveNext
if adodc.resourceSet.EOF then
adodc.resourceSet.moveLast
end if