Lucasimiros:
Sólo agrega la sentencia DoEvents una vez que hayas asignado los nuevos valores de todos los elementos que deben actualizarse.
Esto hará lento el proceso porque el bucle cederá tiempo de procesamiento para actualizar el aspecto de tus objetos en cada iteración del bucle. Pero podrías colocar una variable para actualizar en n cantidad de ciclos, o en n porcentaje.
Creo que el mejor punto para colocar la sentencia es después de:
Código:
...............
PBar.Value = CByte(X * 100 / CantRegistrosDAT)
DoEvents
Busca en la documentación de VB, la sentencia está bien explicada.
Saludos.