如果将数据库指针移到制定的记录号

[道素]

不使用记录中的任何内容，只凭借记录号，怎么将指针精确移动，不如将指针移到第二十条，不管它是什么内容。
谢谢了

[thorkhan]

Dim rsA As New ADODB.Recordset
rsA.AbsolutePosition = 20

[yinguangbo]

n=20
dim rs as new adodb.recordset
a.move n
注意n不能超过rs的记录数

[water_j]

rs.open
rs.movefirst
do until eof and bof
if recordcounts>=20 then
rs.move 20
end if
loop

[shensilang]

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim aa as integer
cn.open(dsn="数据源名")
rs.open"select * from 数据表名"
aa=rs.recordcounts
if rs.recordcount>=20 then
rs.move 20
endif