Como romper un ciclo while

[juanutcm]

Código:

While dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno.EOF <> True 'Bucle controlador de tabla principal a barrer
            'INICIO DE OPTIMIZAR EL CÓDIGO
               Select Case dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!FormaAcreditar 'Identificar la forma de acreditación de la materia
                  Case "ORDINARIA"
                  'INICIO DE OPTIMIZAR CÓDIGO
                  'Sección para obtener de las claves de las formas de acreditar las materias
                        If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!BanderaRecursada <> "SI" Then 'Validar la forma de acreditar "ORDINARIA EN RECURSAMIENTO"
                        'INICIO DE OPTIMIZAR CÓDIGO
                            strClaveFormaAcreditarMateria = GetClaveFormaAcreditarMateria(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!FormaAcreditar) 'Llamar a funcion para obtener la clave correspondiente según su forma de acreditar
                        'FIN DE OPTIMIZAR CÓDIGO
                        Else
                        'INICIO DE OPTIMIZAR CÓDIGO
                            strClaveFormaAcreditarMateria = GetClaveFormaAcreditarMateria("RECURSADA") 'Llamar a funcion para obtener la clave correspondiente según su forma de acreditar
                        'FIN DE OPTIMIZAR CÓDIGO
                        End If 'Fin de validar la forma de acreditar "ORDINARIA EN RECURSAMIENTO"
                        Call mdlPublicos.DoModificarTemporalClaveFormaAcreditarMateria(strClaveFormaAcreditarMateria, dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar el procedimiento para guardar la clave de forma de acreditar la materia
                   'Fin de sección para obtener las claves de las formas de acreditar las materia