Access - barra de progreso

Tengo un Cuadro Combinado que busca un item y luego abre el mismo y quiero que mientra hace esto me muestre una barra de progreso. el código que tiene es el siguiente
Private Sub Cuadro_combinado40_AfterUpdate()

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IdArticulo] = " & Str(Me![Cuadro combinado40])
Me.Bookmark = rs.Bookmark
End Sub
como puedo hacer?
Gracias.

Hola leo, seria bueno que replantees tu busquedad del item, ya por que por lo escribes, estas usan un combobox para hacer una busquedad el cual toma un tiempo el ubicarlo , entonces no uses comboBox , los combobox son controles muy vistosos pero poco efectivos cuando se le requiere busquedas en tabla grandes, yo particularmente mis comboBox los uso con tablas maestras de max 100 registros, en su lugar prueba usar textbox , sin mas rapidos y no recargan tanto el form.

Prueba el sysCmd, el help del access tiene un eje de como hacer barras de progreso
Saludos
Mario

Es correcto lo que dice Mario, respecto al Combo; pero podrías poner una barra utilizando un control Activex. En modo diseño de la caja de Herramientas utiliza Más controles y elige la opción Control ProgressBar o bien Mocrosoft ProgressBar Control (versión 6.0).
Suerte.