如何判断记录集是否已经打开

Question

Dim rs As New ADODB.Recordset
....
rs.Open strsql, conn, adOpenDynamic
有什么办法能判断rs已经处于Open状态.
1、rs.Open strsql, conn, adOpenDynamic
2、Set rs = conn.Execute(strsql)
这两个rs有什么区别。第二个方法有什么办法能使记录指针向前（后）任意移动。

Answer 1

if rs.state=adstateopen then 
    msgbox "已打开"
end if

Answer 2

两个方法中第一个记录集的属性可以在Open方法中设置，第二个的属性（如：Cursorlocation等）使用连接定义的属性。移动指针的方法都一样：用MoveFirst、MoveNext、movePrevious、movelast

Answer 3

if rs.state=adstateopen then 
    msgbox "已打开"
end if

Answer 4

當 Rs.State=1 的時候就打開了

Answer 5

if rs.state=adstateopen then 
    msgbox "已打开"
    rs.close
end if