Hola PRONUER, yo tuve el mismo problema con un programa que maneja una cantidad enorme de registros, la solución que encontré fue poner la setencia (o palabra clave) DoEvents al final de ciclo.
Código:
Do While
.....
DoEvents
Loop
Revisa la ayuda de visual si deseas más información.
Saludes :adio: