[Resolvido]Ampulheta ou outra coisa enquanto aguarda

Olá amigos,
tenho uma aplicação rodando pela internet (VPN). Preciso que alguma coisa seja exibida ao usuário enquanto aguarda a mudança ou carregamento de form, normalmente pq está sendo realizada uma consulta.
Pode ser até a ampulheta do mouse, qualquer coisa.
Podem ajudar?

Ola;

Normalmente usamos assim;

Código:

Private Sub SeuBotao_Click()
    DoCmd.Hourglass True 'ampulheta de aguardar
        DoCmd.OpenQuery "SuaConsulta", acViewNormal, acReadOnly 'corre a sua consulta
    DoCmd.Hourglass False 'desfaz ampulheta
End Sub

Como isso entraria aqui?

Código:

Private Sub bt_seleciona_Click()
'ao clicar em qualquer item, será capturado o código da ocorrência e uma consulta resultará na ocorrência a ser editada
'DoCmd.OpenForm "ocorrencia_edita"
On Error Resume Next
DoCmd.OpenForm "frm_ocorrencia"
Forms!frm_listaocorrencias.Visible = False
'Forms![frm_ocorrencia].Nocor.Value = Me.codigo

Dim oCod As Long
oCod = Me.codocor
On Error Resume Next
Forms![frm_ocorrencia].Nocor.Value = DLookup("código", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].data.Value = DLookup("data", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].hora.Value = DLookup("hora", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cbTipoPoliciamento.Value = DLookup("tipopoliciamento", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cbTipo.Value = DLookup("tipo", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].endereco.Value = DLookup("endereco", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].bairro.Value = DLookup("bairro", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cidade.Value = DLookup("cidade", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].envolvidos.Value = DLookup("envolvidos", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].objetos.Value = DLookup("objetos", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].descricao.Value = DLookup("descricao", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].conduzidosADp.Value = DLookup("conduzidosdp", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].apfd.Value = DLookup("apfd", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].tco.Value = DLookup("tco", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].menorApr.Value = DLookup("adolescentes", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].armaFApreendida.Value = DLookup("armafogo", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].armaBApreendida.Value = DLookup("armabranca", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].veicRecup.Value = DLookup("veicrecup", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].numVitimas.Value = DLookup("numvitimas", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].apreDrogas.Value = DLookup("drogas", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprmaconha.Value = DLookup("maconhaapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprCrack.Value = DLookup("crackapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprCocaina.Value = DLookup("cocainaapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprOutras.Value = DLookup("outrasdrogasapr", "ocorrencias", "código =" & oCod)

End Sub

É o simples;

Código:

Private Sub bt_seleciona_Click()
'ao clicar em qualquer item, será capturado o código da ocorrência e uma consulta resultará na ocorrência a ser editada
'DoCmd.OpenForm "ocorrencia_edita"
On Error Resume Next

DoCmd.Hourglass True 'ampulheta de aguardar

DoCmd.OpenForm "frm_ocorrencia"
Forms!frm_listaocorrencias.Visible = False
'Forms![frm_ocorrencia].Nocor.Value = Me.codigo

Dim oCod As Long
oCod = Me.codocor
On Error Resume Next
Forms![frm_ocorrencia].Nocor.Value = DLookup("código", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].data.Value = DLookup("data", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].hora.Value = DLookup("hora", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cbTipoPoliciamento.Value = DLookup("tipopoliciamento", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cbTipo.Value = DLookup("tipo", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].endereco.Value = DLookup("endereco", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].bairro.Value = DLookup("bairro", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].cidade.Value = DLookup("cidade", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].envolvidos.Value = DLookup("envolvidos", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].objetos.Value = DLookup("objetos", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].descricao.Value = DLookup("descricao", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].conduzidosADp.Value = DLookup("conduzidosdp", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].apfd.Value = DLookup("apfd", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].tco.Value = DLookup("tco", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].menorApr.Value = DLookup("adolescentes", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].armaFApreendida.Value = DLookup("armafogo", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].armaBApreendida.Value = DLookup("armabranca", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].veicRecup.Value = DLookup("veicrecup", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].numVitimas.Value = DLookup("numvitimas", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].apreDrogas.Value = DLookup("drogas", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprmaconha.Value = DLookup("maconhaapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprCrack.Value = DLookup("crackapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprCocaina.Value = DLookup("cocainaapr", "ocorrencias", "código =" & oCod)
Forms![frm_ocorrencia].aprOutras.Value = DLookup("outrasdrogasapr", "ocorrencias", "código =" & oCod)

DoCmd.Hourglass False 'desfaz a ampulheta
End Sub

então em regra devo aplicar o método em todos os botões.
Obrigado Jpaulo. Vou testar hj em casa. aqui no trabalho estou na rede local, não dá pra ver a ampulheta.

Obrigado pelo retorno o forum agradece.