用MSHFLEXGRID显示从数据库中取出的数据(1000行以上)则出现屏幕不断闪烁情况

小菜请教:用MSHFLEXGRID显示从数据库中取出的数据时如行数较多(1000行以上)则出现屏幕不断闪烁情况直到全部数据填充完才停止(行数少可以),请教大侠是不是有什么更好的显示方式或者有什么解决办法,谢谢各位大哥.
代码如下:
Set conpayrs = New ADODB.Recordset
Set db1 = New ADODB.Connection
db1.Open ConStra
conpayrs.Open "SELECT * FROM xs200409 order by fhrq desc", db1, adOpenStatic, adLockOptimistic
createMSHFLEXGRID1
MSHFLEXGRID1.Row = MSHFLEXGRID1.Row
MSHFLEXGRID.Col = 1
If conpayrs.RecordCount <> 0 Then
For r = 1 To conpayrs.RecordCount
With conpayrs
MSHFLEXGRID.rows = MSHFLEXGRID1.rows + 1
MSHFLEXGRID.Col = 1: MSHFLEXGRID1.Text = Format(!fhrq, " yyyy/mm/dd")
MSHFLEXGRID.Col = 2: MSHFLEXGRID1.Text =!fhdw
MSHFLEXGRID.Col = 3: tjgrid1.Text = !fhsl
MSHFLEXGRID.Col = 4: tjgrid1.Text = Format(!fhje, "###,###,##0.00")
MSHFLEXGRID1.Row = MSHFLEXGRIDtjgrid1.Row + 1
MSHFLEXGRID1.Col = 1
.MoveNext
End With
Next
End If