大家帮我看一这段代码哪里有问题

Question

Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim cm As New adodb.Command
Dim sq As String
Dim DataBaseName As String
Dim a As Integer
DataBaseName = App.Path & "\db1.mdb"
sSQL = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & DataBaseName & ""
cn.Open sSQL
cm.CommandText = "select * from yanjing"
Set rs = cm.Execute
问题就出在set rs=cm.execute这里,出现错误提示:在一个已关闭的或无效连接的对像参照上操作不被充许

Answer 1

Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim cm As New adodb.Command
Dim sq As String
Dim DataBaseName As String
Dim a As Integer
DataBaseName = App.Path & "\db1.mdb"
sSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseName & ""
cn.Open sSQL
if rs.state=adstateopen then rs.close
rs.open "select * from yanjing",cn,adopenkeyset,adlockreadonly

Answer 2

Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim cm As New adodb.Command
Dim sq As String
Dim DataBaseName As String
Dim a As Integer
DataBaseName = App.Path & "\db1.mdb"
sSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseName & ""
cn.Open sSQL
rs.open "select * from yanjing",CN, adOpenDynamic,adLockBatchOptimistic