Hola que tal,, tengo un problema ya que carga un flex con datos de una BD en access pero son mas de 1000 registros y tarda mucho en llenarse y hasta que no termine de llenar me deja moverme en la aplicacion

por ejemplo en un boton hace esto para llenarlo


'Consulta
rs.Open "Select * from Tb_Ultrium order by Secuencia", cnn, adOpenStatic, adLockOptimistic
'llenar flex
Call llenar(flex)
With flex

.ColWidth(9) = 0
End With



***por aca la funcion****

Public Sub llenar(flex As MSHFlexGrid)

Set flex.DataSource = rs
With flex

.ColWidth(0) = 1200
.ColWidth(1) = 1300
.ColWidth(2) = 4000
.ColWidth(3) = 5000
.ColWidth(4) = 1200
.ColWidth(5) = 1200
.ColWidth(6) = 2500
.ColWidth(7) = 1500
.ColWidth(8) = 0
.ColAlignmentFixed(0) = 1
.ColAlignment(0) = 1


End With
Set rs = Nothing






No tengo idea de como hacer para que haga esto mas rapido y no tarde como un minutos o mas en llenar