ADO控件绑定MSHFlexGrid时修改数据老是要重新操作才能更新是怎么回事？

求救ADO控件绑定MSHFlexGrid时修改数据老是要重新操作才能更新是怎么回事？实际数据中已经更新过来了，但MSHFlexGrid就是没有同步显示，代码如下
Private Sub Command1_Click(Index As Integer)
Dim i As Integer '声明控件组索引变量
Dim strsql As String '声明记录选取行号变量
Dim cmd As New
Select Case Index  '控制组选择条件语句
Case 0             '点击索引为0的[新增]按键
For i = 0 To 8     '循环语句
Text1(i).Text = ""     '清空各文本框
Next i
Label3.Visible = False  '设置标签不显示
Text1(0).SetFocus       '获得焦点
Adodc1.Recordset.AddNew  '新增记录
Case 1            '点击索引为1的[保存]按键

If Label3.Visible = True Then  '判断标签是否显示,若显示则表示为已存在该记录,则执行修改记录语句
mymsg = MsgBox("您确认要修改此记录吗？", 4, "提示信息")  '提示确认信息
If mymsg = vbYes Then
cmd.ActiveConnection = cnn   '设置当前连接
= adCmdText
= "update t_slxx  set 客户名称='" & Trim(Text1(2).Text) & "'  where 申请ID='" & Trim(Label3.Caption) & "'"  '修改符合条件的记录
cmd.Execute
Adodc1.Recordset.Update '这里以下三句不知对不对反正是没有起到效果
Adodc1.Recordset.Requery
Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.Refresh
End If
Else