Private Sub Command3_Click()

Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
    Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If

      Dim cnstring As String '用于存放连接字符串的
    cnstring = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd_maipu"
    Mycn.Open cnstring
    Mycn.CursorLocation = adUseClient
    Adodc2.Recordset.Open "select * from DJ_CSDJ_DJDCB_ZJBS where dcdz_bh='" & Trim(txt1.Text) & "'"
 Mycn.Close

End Sub
问题是这样的，在一个窗体里有adodc1和adodc2两个控件，我要实现的功能是，点激下移的时候，adodc1的记录移动到下一条，而adodc2根据1所移的记录中的一条数据进行查询
现在错误是“3705 对象打开时，操作不被允许”！大家看看我的下移，和窗体的代码怎么修改一下，就能实现我 要的功能呢？！谢谢
Private Sub Form_Load()



If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  MsgBox "库里还没有记录请先填加再查询!!!", vbOKOnly + vbExclamation, "信息提示"
  Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End If


 
End Sub