怎样跳转到指定的记录？

Question

dbname = App.Path & "\db1.mdb"
Set conn = New ADODB.Connection
conn.Open "driver=microsoft access driver (*.mdb);dbq=" & dbname
Set rs = New ADODB.Recordset
rs.Open "select p_path from pic", conn, 1, 1
If rs.EOF Then
    MsgBox "对不起，你的图片库为空，请先添加图片路径"
End If
//我想让rs跳转到指定的记录，比如3或者1。
rs.Move 0
Image1.Picture = LoadPicture(rs(0))

Answer 1

比较笨的方法：写个函数，先movefirst，再根据要跳转的纪录号n执行n次movenext。