Sugestão para otimizar cálculos

Boa noite!

estou montando este Sub abaixo, onde o mesmo irá fazer 72 calculos (1 para cada caixa de texto), gostaria de alguma sugestao para nao pesar o carregamento do formulário, pois o mesmo ira atualizar a cada 5 minutos puxando uma nova importação do banco de dados (Painel de monitoramento)

como mesmo irá fazer vários dcount acho que vai ficar pesado...

a partir dessa consulta: cns_TranspMonit_Calculo_Grafico




segue abaixo

Código:

Sub CalculaStatus()

Dim AA, BA, CA, DA, EA, FA, GA, HA As String

'ESTADOS

AA = "MG"
BA = "SP"
CA = "RJ"
DA = "ES"
EA = "AL"
FA = "SE"
GA = "PE"
HA = "BA"

Dim A, B, C, D, E, F, G, H, I As String

'STATUS DOS ESTADOS

A = "Voz_ref"
B = "Aguardando carregamento"
C = "Aguardando descarga"
D = "Em transito"
E = "Disponivel"
F = "Carregado"
G = "Fluxo Interno"
H = "Programado"
I = "Manutencao"

'NZ(DCOUNT("Estado_atual_graf","cns_TranspMonit_Calculo_Grafico","[Status_Voz_graf] = A"),0)

'CAIXAS DE TEXTOS ONDE DEVEM RECEBER AS QUANTIDADES

'AA = "MG"

txt_AA_A
txt_AA_B
txt_AA_C
txt_AA_D
txt_AA_E
txt_AA_F
txt_AA_G
txt_AA_H

'BA = "SP"

txt_BA_A
txt_BA_B
txt_BA_C
txt_BA_D
txt_BA_E
txt_BA_F
txt_BA_G
txt_BA_H

'CA = "RJ"

txt_CA_A
txt_CA_B
txt_CA_C
txt_CA_D
txt_CA_E
txt_CA_F
txt_CA_G
txt_CA_H

'DA = "ES"

txt_DA_A
txt_DA_B
txt_DA_C
txt_DA_D
txt_DA_E
txt_DA_F
txt_DA_G
txt_DA_H

'EA = "AL"

txt_EA_A
txt_EA_B
txt_EA_C
txt_EA_D
txt_EA_E
txt_EA_F
txt_EA_G
txt_EA_H

'FA = "SE"

txt_FA_A
txt_FA_B
txt_FA_C
txt_FA_D
txt_FA_E
txt_FA_F
txt_FA_G
txt_FA_H

'GA = "PE"

txt_GA_A
txt_GA_B
txt_GA_C
txt_GA_D
txt_GA_E
txt_GA_F
txt_GA_G
txt_GA_H

'HA = "BA"

txt_HA_A
txt_HA_B
txt_HA_C
txt_HA_D
txt_HA_E
txt_HA_F
txt_HA_G
txt_HA_H


End Sub