Caros amigos, utilizo assim :

 

  strSQL = ""
        strSQL = Trim(txtTextoSQL.Text)
        If tblAux.State = adStateOpen Then tblAux.Close
        dblLinhasAfetadas = 0
        tblAux.CursorLocation = adUseClient
        tblAux.Open strSQL, adoBanco, adOpenForwardOnly, adLockReadOnly
     
        Set MSHFlexGrid1.Recordset = tblAux

 

  Já carregou 600.000 registros sem problema nenhum....

Abraço