根据当前ID查找它的上一条记录和下一条记录，这样写错了吗？

		dim sql,sourceArr(1)

		sql="select * from [category] where id="&id

		set rs = db.conn.execute(sql)

			if(sortModel = "up") then

				rs.moveprevious

			else

				rs.movenext

			end if

			sourceArr(0) = rs("id")

			sourceArr(1) = rs("sort")

		rs.close:set rs=nothing

		getSortCompareRecord = 	sourceArr

------解决方案--------------------
你这是根据记录id查找的，应该只能找到一条吧，这样你前进和后退 有啥意义啊，不就这么一条吗
------解决方案--------------------

这些是对rs结果集多条数据时 前一条，和下一条的 操作！

rs.moveprevious

rs.movenext



select * from [category] where id="&id；

只能查一条。



如果 ID是 不断续的 int 你可以  

select * from [category] where id in (id-1,id,id+1);

再

rs.moveprevious

rs.movenext

就可以了！