Visual Basic - Problemas con Recordset y while

HOla Amigos, mi problema es que cuando hago una consulta con SQL, el resultado lo paso a un flexgrid, ehh aqui el problema que para pasar 50 registros me tarda una eternidad, es como si el while estaria muyyyyy lento, tambien probe haciendo un while < 1000 y me lo hace muyy rapido, evidentemente el problema esta cuando recorro el recordset con el movnext...
Gracias

qué estas usando???? DAO o ADO???

Si usás ADO:
Reemplazá el flexgrid por un datagrid, y en la propiedad "DataSource" le asignás el Recordset que tenés hecho. Automáticamente te va allenar la tabla con toooooodos los registros. Chau problema.
Ejemplo:

Private Sub LlenarTabla()
Set DataGrid1.DataSource = MiRecordset
End Sub

Si Usas DAO:
Agregá un control Data. Enlazá el flexgrid con el Data (Set FlexGrid.DataSource = Data) y el código quedaría así:

Private Sub Form_Load()
Set FlexGrid.DataSource = Data
End Sub

Private Sub LlenarTabla()
Set Data.DataSource = MiRecordset
End Sub

Esperoq ue te sirva!!!!