vb6.0 datagrid 上修改的数据同步到数据库的问题

[oYuGuo1]

在datagrid上修改了成绩，再按确认修改，那么把这个修改的成绩同步到我的数据库里面 这个代码要怎么写 我写的不能运行

Private Sub Command4_Click() ‘确认修改按钮 SQL = "update kczhcj set cj= '" & Val(Column2(cj)) & "'where xh='" & Val(Text1) & "'"

Adodc2.RecordSource = SQL

Adodc2.Refresh

DataGrid2(1).Refresh

End Sub