Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rsther.Update
End If
Cmdmodify.Enabled = True
Cmddel.Enabled = True
Cmdcancel.Enabled = False
Cmdupdate.Enabled = False
DataGrid1.AllowUpdate = False
MsgBox "修改成功！", vbOKOnly + vbExclamation, ""
End Sub
错误：当前记录不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制

LockType

Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：

-------------------------------------------------------------

常数 常数值 说明

--------------------------------------------------------------

adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法

adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。

adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。

adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的操作

这个要在那里改，我就是搞不懂啊，
如果我用的数据环境设计器，是不是要在dataenv.con.student表中改

哦,我知道了,