Progress Bar

Tengo un progressbar en un form que toma datos de la BD, deseo que el
progress avance con relación al tiempo de consulta, porque yo lo que hago es
una función progbar de la siguiente manera:

Me.StatusBar1.Text = "Loading Information from DataBase"

For i = 0 To 100 Step 0.00003

Me.Enabled = False

Me.ProgressBar.Value = i

Next i

Me.ProgressBar.Value = 0

Me.ProgressBar.Visible = False

Me.Enabled = True

Pero como es una función, no se va a ejecutar a la par que la consulta sino
antes o después e igual habría que esperar que transcurra el tiempo de
consulta.

¿Cómo puedo sincronizar ambas acciones?

Gracias de Antemano