VB6.0 MSHFLexGrid 如何实现定时刷新。
如题，我的MshFlexGrid1的数据源是通过SQL语句来连接的。现在想实现的是每隔5S就刷新MshFlexGrid1窗体（即是再执行一遍SQL语句）
Dim result As ADODB.RecordSet
Dim ServerConnection As ADODB.Connection
ServerConnection.open "DSN= ;UID=;PWD="
result.open ("SQL语句"),ServerConnection
MshFlexGrid1.DataSource = result
如何定时执行红色部分？对VB不熟悉，不知道如何用定时器，请帮忙介绍下。
[解决办法]
用timer控件，每隔5s 调用一次你的查询程序
