[Resolvido]Barra de Progresso (Bloqueia)

Boa tarde,

Estou a tentar criar uma barra de progresso atraves de um formulario para indicar em que estado do processo se encontra.
Acontece que o mesmo não reage devido a algumas consultas que estão a decorrer e o sistema fica em modo "Not Responding".
Já tentei por umas pausas no meio do código para que a barra atualize mas apenas tive sucesso se pusesse msgbox.

Poderiam ajudar?

Código:

DoCmd.SetWarnings False
Me.Linha26.Width = 500
Form.Refresh
DoCmd.RunSQL "Update versao_bd Set[versao_bd]![DataInicioRel] = texto23"
DoCmd.RunSQL "Update versao_bd Set[versao_bd]![DataFimRel] = texto25"
Pausa (3)
Me.Linha26.Width = 1500
DoCmd.OpenQuery "Criar_Logs", acViewNormal
Pausa (3)
Me.Linha26.Width = 2000
DoCmd.OpenQuery "Criar_ReportRanking", acViewNormal
Pausa (3)
Me.Linha26.Width = 3000
DoCmd.OpenQuery "Criar_ReportVendas", acViewNormal
Pausa (3)
Me.Linha26.Width = 4000
DoCmd.OpenQuery "Criar_ReportContactos", acViewNormal
Pausa (3)
Me.Linha26.Width = 5000
DoCmd.SetWarnings True

Olá Pedro,

Tente usar DoEvents , logo de seguida de cada consulta e verifique como se comporta.
Abraço

5* Estrelas!!
Resolvido!

Olá, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço

Obrigado
Demorei para achar algo que podia me ajudar mas achei aqui, valeu !!!

Olá Thiago Sirino, seja bem vindo ao fórum!

Obrigado pelo retorno.

Abraço