急！！！实时错误 '3705' 对象打开时不允许操作！！！

Question

Dim dbconn As New ADODB.Connection
Dim mrc As New ADODB.Recordset
Dim connstr As String
Dim Acc As Boolean
    Set mrc = New Recordset
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=E:\testpaper\DB\testpaper.mdb"
    dbconn.Open connstr
    txtsql = "select * from testdes"
    Set mrc = dbconn.Execute(txtsql)
    mrc.Open txtsql, adOpenKeyset, adLockOptimistic, adCmdText
    FillText
    TextEnable
    If Combo1.Text = "１－判断题" Then
       Text(2).Visible = False
       Else
       Option1.Visible = True
       Option2.Visible = True
    End If
    If Combo1.Text = "２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题" Then
       Text(2).Visible = True
       Else
       Option1.Visible = False
       Option2.Visible = False
    End If
    Acc = False
End Sub
-----------------------------------------------------------------------------------------
 
    mrc.Open txtsql, adOpenKeyset, adLockOptimistic, adCmdText这句话提示出来的错误~~~
-----------------------------------------------------------------------------------------
 
    各位大大帮忙看看

Answer 1

if mrc.state<>adstateclosed then mrc.close
mrc.open ...

Answer 2

加上了这句话后。有提示  参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。。
 还是这句话提示的
-----------------------------------------------------------------------------------------     mrc.Open txtsql, adOpenKeyset, adLockOptimistic, adCmdText ----------------------------------------------------------------------------------------- 

Answer 3

    mrc.Open txtsql, adOpenKeyset, adLockOptimistic, adCmdText
你为什么还要写这么一句话呢？
删了试试~~~~~~~
关注！

Answer 4

Dim dbconn As New ADODB.Connection 
Dim mrc As New ADODB.Recordset 
Dim connstr As String 
Dim Acc As Boolean 
    Set mrc = New Recordset 
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=E:\testpaper\DB\testpaper.mdb" 
    Set dbconn = New adodb.Connection
    dbconn .CursorLocation = adUseClient
    dbconn.Open connstr 
    txtsql = "select * from testdes" 
    'Set mrc = dbconn.Execute(txtsql) 
    mrc.Open txtsql,dbconn,adOpenKeyset, adLockOptimistic, adCmdText 
    FillText 
    TextEnable 
    If Combo1.Text = "１－判断题" Then 
      Text(2).Visible = False 
      Else 
      Option1.Visible = True 
      Option2.Visible = True 
    End If 
    If Combo1.Text = "２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题" Then 
      Text(2).Visible = True 
      Else 
      Option1.Visible = False 
      Option2.Visible = False 
    End If 
    Acc = False 
End Sub 

Answer 5

dbconn.Execute(txtsql)
mrc.Open txtsql,dbconn,adOpenKeyset, adLockOptimistic, adCmdText 
重复了