Antes de hacer la consulta, coloca
Me.MousePointer = vbHourglass
'A continuacion tu consulta, y tus procesos
Al terminar, coloca
Me.MousePointer = vbDefault
Con esto, al menos tendras la idea que esta trabajando
Lo otro, es que tengas un contador de eventos, y simplemente en tu
proceso le pongas
cont=cont+1
me.caption="Evolucion " & cont
Espero te tinque