Bucle en VB6 con consulta SQL

[mallu1983]

Hola,

Tengo una consulta SQL y me gustaria que la hiciese en paquetes de 99, es decir, cuando ROWNUM sea de 1 a 99 la primera vez, de 99 a 198 la segunda....como puedo hacerlo, no se que bucle realizar

SQL = " SELECT DISTINCT ORCOID,ORNOMBRE AS ENTIDAD,ORNODIR AS DIRECCION,ORNRCOPO AS CP,O1NOUSR AS USUARIO,O1NOPWS AS PASWORD,ORNOEMLCO AS EMAIL,LONOMBRE AS LOCALIDAD,PVNOMBRE AS PROVINCIA "
SQL = SQL & " From ORGANISM, LOCALIDA, PROVINC, FORUSU "
SQL = SQL & " WHERE ORCOL37P in(select orcol37p "
SQL = SQL & " From ORGANISM "
SQL = SQL & " where ORCOL37P='38' OR ORCOL37P='22' OR ORCOL37P='67' OR ORCOL37P='26' OR ORCOL37P='27' OR ORCOL37P='28' OR ORCOL37P='32') "
SQL = SQL & " and "
SQL = SQL & " ORGANISM.ORCOLO = LOCALIDA.LOCODIGO(+) "
SQL = SQL & " AND LOCALIDA.LOCOPV = PROVINC.PVCODIGO(+) "
SQL = SQL & " AND ORGANISM.ORCOID=FORUSU.O1COL37(+) "
SQL = SQL & " AND ORNOEMLCO <>' ' "
SQL = SQL & " AND ROWNUM BETWEEN '1' AND '99' "