我用MSFlexGrid控件显示数据库，绑定data，可是当添加和删除后MSFlexGrid中不立即 显示，添加和删除都确确实实的实现了，问怎么解决？是不是延时的问题？用下列程序没有解决：
Public Sub yanshi()
savetime = Timer
While Timer < savetime + 0.5
DoEvents
Wend
End Sub
谢谢！

你添加和删除后，刷新了 MSFlexGrid 或者刷新了 与 MSFlexGrid 绑定的 data 控件吗？

前面回答了这个问题，忘了还有一个什么问题，百度来的。

是，就是这个问题，一直没有解决！当时纯粹不显示，现在显示了可是就是延时！

数据量？

什么数据量？全部程序如下：
Private Sub Command2_Click()
Dim db As Database  '数据库
Dim rs As Recordset  '记录集，数据表
Dim ss As String
 
s = App.Path + "\用户信息.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase(s) '打开库


ss = "select * from 用户信息 where 姓名='" & Text1.Text & "'"

Set rs = db.OpenRecordset(ss, dbOpenDynaset)       '打开表，或一个记录集


rs.Delete
Data1.RecordSource = "用户信息"
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Public Sub yanshi()
savetime = Timer
While Timer < savetime + 0.5 '
DoEvents
Wend
End Sub
谢谢！

当记录数小于100条时，绑定数据库的控件显示数据的速度还能忍受，当记录数达到1000条以上时，可能要好几分钟后才能显示出所有数据，有时会让你觉得死机了，使用分页显示的方法可以解决。

没有啊，记录不到十条的！