Hola amigo, No sé nada de hilos, pero ¿no probaste simplemente con un Timer que vaya cargando la barra en el evento Tick y que vaya haciendo cada vez mas grande el Interval, de modo que, a medida que la barra avanza, se vaya haciendo mas lenta. No se si se actualizará mietras se están cargando los registros. Ejemplo:

Private sub Timer1_Tick(................
..........
Try
Timer1.Interval = 100 + Timer1.Interval * Bar.Value / 75
If Bar.Value < 100 Then Bar.Value += 1
Catch
End Try
.........

__________________
Es más fácil desintegrar un átomo que un preconcepto. Einstein