再次请教 MSHFlexGrid1不刷新的问题!

Question

Private Sub Command1_Click()
hao '定义的过程
rs.Open " insert into 用户记录 ( 姓名,性别,年龄,学历,年收入,工作单位,通信地址 ) values ( '" & Trim(Text1.Text) & "','" & Trim(Combo1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "')", db, adOpenStatic, adLockReadOnly
MsgBox "添加成功"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""Private Sub Form_Load()
hao '定义的过程
rs.Open "select  *  from 用户记录 ", db, adOpenStatic, adLockReadOnly
Set MSHFlexGrid1.DataSource = rs
End Sub无论在那里加上  MSHFlexGrid1.Refresh 
都不行. 要把程序关掉.再启动,才会看到最新增加的记录!急急!

Answer 1

我觉得少了一句，你试一下吧：
rst.CursorLocation = adUseClient
Private Sub Form_Load()
hao '定义的过程
rs.CursorLocation = adUseClient  ‘客户端执行
rs.Open "select  *  from 用户记录 ", db, adOpenStatic, adLockReadOnly
Set MSHFlexGrid1.DataSource = rs
End Sub

Answer 2

记录集要重新刷新，以保持和数据库的数据同步
数据添加成功之后，加上试试rs.requrey
MSHFlexGrid1.Refresh 如果不行就把记录集打开的方式设置为动态游标、优化锁定试试