问个ado控件问题，在线等解决立结

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