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

在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

补充：VB ,  数据库(包含打印，安装，报表)