[Resolvido]Lentidão - DAO.Database | É normal?

Olá, pessoal! Estou fazendo o script para renomear aproximadamente 45.000 arquivos cujos nomes estão regitrados na tabela local q_ged_a_2_b
Sei que o processo é demorado, mas resolvi testar o quanto da lentidão é causada pelo BD, fazendo o script abaixo, sem mexer ainda nos arquivos

Descobri que ele é culpado por uma considerável lentidão.

Código:

Private Sub BtTest_Click()

Dim db As DAO.Database
Dim rsged As DAO.Recordset
Dim str_e As String
str_count = 0

Set db = CurrentDb()
sql = "SELECT * FROM [q_ged_a_2_b] where [e] = '525'"
Set rsged = db.OpenRecordset(sql)
    
Do While Not rsged.EOF
str_e = rsged.Fields("e")
str_count = str_count + 1
'aqui eu deveria colocar o script fs para renomear os arquivos. Suprimi para ficar didático
rsged.MoveNext
Loop
MsgBox (str_count)

End Sub

Para rodar 100 registros, demorou 20 minutos!

Isto é normal? Estou fazendo algo errado? Há outra maneira mais rápida? Uma simples consulta à tabela não leva 0.1 segundos


Temo que o processo todo dure uma semana para acontecer e isto é complicado

Boa tarde.
Está em rede?
O que é q_ged_a_2_b

Olá, Marcelo! Esta é a tabela que contém os nomes do arquivo. Ela foi importada de uma query no MySQL, por isto o "q_". Mas agora ela é local e está no frond-end do MsAccess

Melhorando: A tabela não está vinculada ao MySQL

Poderia postar aqui para vermos?

Não sei o que aconteceu.. Insisti em casa e ele processou os 45.000 registros (sem movimentar arquivos) em 45 minutos. Lento, mas nada comparado aos 20 minutos para apenas 100 registros!
Obrigado, Marcelo!

Se resolveu, ótimo!

Grato pelo retorno, o fórum agradece!