我用DataGrid做个查询，出现查询信息后，选中一条信息后，弹出相关信息，并修改。
Private Sub Command1_Click()
Dim update As String  '声明变量，用来保存SQL语句字符串
  '如果没有选择部分信息，则退出
  If Text1.Text = "" Then
    Exit Sub
  End If
  '  '以此编号设置SQL语句，读取此部门中的所有病人信息
  update = "update empinfo set dsing=1, dtime =getdate() where emp_name = '" _
           & Text1.Text & "'"
  
    With FrmDataGrid.Adodc1
  .RecordSource = update
  .Refresh
  End With
    Unload Me
End Sub

出现：对象关闭时，不允许操作
实时错误‘3704
应用程序定义或对象定义错误
但是修改数据却成功，这是什么原因？又如何同时刷新FrmDataGrid.Adodc1？

sql

我是这样改的：
Private Sub Command1_Click()
  '判断是否选择了表中的一行
  If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
    MsgBox "请选择要显示的行"
    Exit Sub
  End If
   With FrmDataGrid.Adodc1
   .Recordset.Fields(7) = 1
   .Recordset.Fields(8) = Now()
  
   .Recordset.update
   .Recordset.Requery
   End With
End Sub

能再说详细点吗？不是太明白。

已经做出来了，现又有新的问题，过程是：
Private Sub Command1_Click()
  '判断是否选择了表中的一行
  If Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then
    MsgBox "请选择要显示的行"
    Exit Sub
  End If
    With Adodc2
   .Recordset.Fields("sendope") = 0
   .Recordset.Fields("sendtime") = Now()
   .Recordset.Update
   .Recordset.Requery
   End With
   End Sub
可以修改了，
但如何防止直接点Command1进行修改，当直接点Command1时，则提示要先选中要修改的栏，才能进行修改。
这条 '判断是否选择了表中的一行
  If Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then
    MsgBox "请选择要显示的行"
只是在没有数据是才行，
请各位再帮看一看，先谢了