Visual Basic - ProgressBar y SQL

Hola, hice una rutina que trabaja en red y la tabla tiene 99000 registros, además la búsqueda se hace dentro de un campo memo con la instrucción LIKE. El problema que se me presenta es que primero demora cierto tiempo (bastante) esta búsqueda y al rato recién comienza a incrementarse el ProgressBar. Mis usuario se quejan porque dicen no saben si se colgó el equipo o aún está buscando. ¿Es posible hacer que el ProgressBar comience a incrementarse ni bien se ejecute SQL?

Este es el código que utilizo:

Dim Dbase As Database 'Variable para las Bases de Datos
Set Dbase = OpenDatabase(App.Path & "\Fotos.mdb")

Dim SQLTmp As String
Dim MySnap As Recordset

SQLTmp = "Select * From Fotos WHERE UCase(Descripcion) Like '*" & UCase(Trim(TxDescripcion.Text)) & "*'"
Set MySnap = Dbase.OpenRecordset(SQLTmp)

MySnap.MoveLast
If MySnap.RecordCount = 0 Then
MsgBox "No hay datos que coincidan con la búsqueda especificada"
Exit Sub
End If

'Añado el resultado a un Grid
PB.Min = 0
PB.Max = MySnap.RecordCount
PB.Value = 0

MySnap.MoveFirst
Do Until MySnap.EOF
GrMostrar.AddItem MySnap("Numero") & Chr(9) & MySnap("FechaIngreso")
MySnap.MoveNext
PB.Value = PB.Value + 1
Loop
MySnap.Close

Set MySnap = Nothing
Set Base = Nothing