我用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

你選用SELECT
再用UPDATE

我是这样改的：
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

学习一下

update,delete这类一般用execute

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

Adodc1  未綁定數據庫﹐ 如果猜的沒錯的話  你連接后台數據庫是用代碼寫的。。
此時的adodc1 根本就沒有連接到后台數據庫。。

ADO控件写出来的代码 绝对垃圾