急！！！！！！！！查询系统中的查询和显示问题！

Question

Dim dbconn As New ADODB.Connection
Dim mrc As New ADODB.Recordset
Dim testdesrst As New ADODB.Recordset
Dim connstr As String
Dim Acc As BooleanPrivate Sub Command2_Click()
    If testdesrst.RecordCount = 0 Then Exit Sub          testdesrst.MovePrevious  '<------------实时错误 '3219'  在此环境中不允许操作。    If testdesrst.BOF = True Then
        MsgBox "已经是第一道试题了！", vbOKOnly + vbExclamation, "浏览试题"
        mrc.MoveFirst
    End If
    Call FieldtoControl(testdesrst, Me)
End SubPrivate Sub Command3_Click()
    If testdesrst.RecordCount = 0 Then Exit Sub
         testdesrst.MoveNext
    If testdesrst.EOF = True Then
        MsgBox "已经是最后道试题了！", vbOKOnly + vbExclamation, "浏览试题"
        testdesrst.MoveLast  '<-----------实时错误 '-2147217884 （80040e24）'  行集不支持反响提取 
   End If
Call FieldtoControl(testdesrst, Me)
End SubPrivate Sub Command4_Click()
    If testdesrst.RecordCount = 0 Then Exit Sub
    testdesrst.MoveLast   '<----------------------实时错误 '-2147217884 （80040e24）'  行集不支持反响提取
    Call FieldtoControl(testdesrst, Me)
End Sub
Private Sub Command8_Click()
    If testdesrst.RecordCount = 0 Then Exit Sub
    testdesrst.MoveFirst
    Call FieldtoControl(testdesrst, Me)
End SubSub FieldtoControl(rss As ADODB.Recordset, frm As Form)
   frm.Text1.Text = Trim(rss!code)
   frm.Text2.Text = Trim(rss!stdes)
   frm.Text3.Text = Trim(rss!stanswer)
   frm.Text4.Text = Trim(rss!stmemo)
'********************************************
   'frm.Combo1.Text = Trim(rss!itemid)   Combobox怎么在textbox里显示。代码怎么写。
   'frm.Combo2.Text = Trim(rss!lecode)   
   'frm.Combo3.Text = Trim(rss!sttype)
'********************************************
End SubPrivate Sub Form_Load()
    Dim mrc As ADODB.Recordset
      '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 testdesrst = dbconn.Execute(txtsql)
    If testdesrst.RecordCount <> 0 Then
       testdesrst.MoveFirst
       Call FieldtoControl(testdesrst, Me)
    End If

Answer 1

Private Sub Form_Load()
    Dim mrc As ADODB.Recordset
      '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 testdesrst = dbconn.Execute(txtsql)
    If testdesrst.RecordCount <> 0 Then
       testdesrst.MoveFirst
       Call FieldtoControl(testdesrst, Me)
    End If
改一下：
 Private Sub Form_Load()
    Dim mrc As ADODB.Recordset
      'Set mrc = New Recordset
    connstr.CursorLocation = adUseClient     connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=E:\testpaper\DB\testpaper.mdb"
   ' dbconn.Open connstr
    txtsql = "select * from testdes"
   ' Set testdesrst = dbconn.Execute(txtsql)
    testdesrst.Open   sql,   cn,   3,   3    If testdesrst.RecordCount <> 0 Then
       testdesrst.MoveFirst
       Call FieldtoControl(testdesrst, Me)
    End If