[Resolvido]Tabela não atualiza por inteira

Bom dia, antes de colocar minha duvida já andei pesquisando e fazendo varias tentativas, parece tão simples mas não estou acertando, veja os codigos :
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("PRODUTOS") 'neste processo abrindo a tabela inteira funciona atualiza
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs("loja1") = 2
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Me.Refresh
MsgBox "Processo realizado com sucesso.", vbInformation, "Atualização de estoque"

'mas
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select Loja1 from PRODUTOS") 'neste processo pegando somente o campo que quero atualizar não funciona, chega a atualizar alguns mas pula outros
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs("loja1") = 2
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Me.Refresh
MsgBox "Processo realizado com sucesso.", vbInformation, "Atualização de estoque"

'detalhe meu bd tem 25.000 registro e gostaria de atualizar o campo especifico porque esta em rede para executar mais rápido, agradeço mesmo se alguém poder dizer onde estou errando!

Código:

Private Sub SeuBotao_Click()
Dim strSQL As String
Dim rs As DAO.Recordset
On Error GoTo 1

strSQL = "SELECT Loja1 from PRODUTOS"
Set rs = CurrentDb.OpenRecordset(strSQL)

With rs
   
    If Not .BOF And Not .EOF Then
        .MoveLast
        .MoveFirst
       
        While (Not .EOF)
            .Edit
            .Fields("Loja1") = 2
            .Update
            .MoveNext
      Wend
    End If
   
    .Close
End With

MsgBox "Processo realizado com sucesso.", vbInformation, "Atualização de estoque"

ExitSub:
    Set rs = Nothing
        Exit Sub
1:
    Resume ExitSub
End Sub

JPaulo, obrigado por me responder, mas não deu certo, já tinha tentado também fazer usando SQL, mas o processo só da certo quando executado pela primeira vez.
Mas sabe que acabei de percebe agora, eu Compilei o código e não deu erro e funcionou quando executei a primeira vez, quando tentei pele segunda já não funcionou,
mas voltei a compilar e funcionou, toda a vez que vou no depurar/Compilar funciona! Será que devo estar com algum erro na escrita do VBA que não estou identificando?
Acabei fazendo mais teste e o processo acontece somente no primeiro uso, após isso não executa mais o comando.
Estranho que abrindo a tabela inteira funciona.

Estranho porque o recordset está a ser fechado e a memória dele limpa.

Minha sugestão é você importar todos os objetos para um banco novo e testar.

Certo JPaulo, fiz isso importei para um novo BD, e realmente tudo indica que sanou o problema, nossa estou a como pode isto, valeu ai a dica ! Muito Obrigado!

Fico feliz.

Obrigado pelo retorno o forum agradece.