Visual Basic - MSHFlexGrid

Hola amigos, me pasa lo siguiente tengo un MSHFlexGrid en el cual cargo los datos que me trae un recordset, la forma en que lo hago es la siguiente
Do While not rs.EOF
cadena= rs.Field(0) & rsField(1)
grid.additem cadena
rs.movenext
loop
de esta forma no me daproblemas pero en la aplicacion que estoy trabajando ahora es en entorno de red y el volumen de registros es alto.
¿Como se les ocurre para que esto fuera mas rapido?
utilizo ADO
Desde ya muchas gracias a todos

Es muy eficaz establecer primero la propiedad Redraw a false antes de hacer los cambios y luego de realizados, retornar el valor a true, si no lo has ensayado prueba y verás que la mejora en el tiempo es bastante significativa, otra forma es enlazar el objeto a un origen de datos, para que muestre la información de una tabla o consulta.

Espero te haya servido de algo.