[Resolvido]Delay entre execução de loop

Olá amigos,
Criei uma pequena aplicação para gerar números sequenciais. Funcionou. Ocorre que preciso gerar 2 milhões de números ...
Quando a aplicação gera 200, 500, roda tranquilo. Mas quando mando rodar 10mil, por exemplo, o access trava.
Acho que tá rodando rápido demais, aí buga.
Minha intenção é botar um atraso entre as execuções, de alguns milisegundos.
Alguém pode dar uma luz?

Código:

 For i = 1 To Me.add
     
      RS.AddNew
      RS("number") = Nz(DMax("number", "lista")) + 1
      RS.Update
     
  Next

Esse é o código que gera a sequencia numérica.
Alguma ideia?

Obrigado!

Opa, Buscando aqui no Fórum sempre achamos o que procuramos amigo!!!

https://www.maximoaccess.com/t995-provocar-pausa-numa-instrucao

Dica:
Se esse seu Código é apenas para adicionar Numeros sequencias sem pular pode dobrar a velocidade se remover esse Dmax() de dentro do Loop

Pegue apenas uma Unica Vez o Ultimo Numero da tabela com Dmax(), passe ele para uma Variavel x e então basta ao passar pra tabela colocar assim:


X= Nz(DMax("number", "lista")  '<===Aqui eu vejo antes qual o Maior Valor que já tem na tabela
For i = 1 To Me.add
     
      RS.AddNew
      RS("number")=X+i '<=== Aqui eu Pego o maior valor e vou somando com a passagem do Loop (i)
      RS.Update
     
  Next

Obrigado

Até aproxima se Deus quiser!

Poderia nos contar qual das duas dica resolveu seu problema?