Private Sub Command7_Click()
Dim update1 As String  '声明变量，用来保存SQL语句字符串
 updata1 = "update Recipelist set sendope=1 where  flow =' " _
             & Val(Text1.Text) & "'"
 '判断是否选择了表中的一行
  If Adodc7.Recordset.EOF = True Or Adodc7.Recordset.BOF = True Then
    MsgBox "请选择做检查人员的列"
    Exit Sub
  End If
  Form1.Text1 = Adodc7.Recordset.Fields("flow")
  With Adodc7
  .RecordSource = updata1
  .Refresh
 .Recordset.Update
  End With
End Sub


出现错误：对象关闭时，不充许操作
实时错误‘3704
应用程序定义或对象定义错误
请各位帮个忙看一看。