Update e Insert via VBA

Boa noite!

Tenho um arquivo onde faço 1 insert e 2 updates seguidos, porém não sei o que está acontecendo que um dos updates as vezes não funciona!

Estou desconfiado que seja problema com o runtime, onde alguns funcionários da empresa que trabalho usam!
Fiz testes no banco de dados com access 2000 (onde foi criado) e não apresentou nenhum erro.

Pode ser do runtime?

O insert e o 1º update vai de boas.. Isso está me dando dor de cabeça!!!!

Consigo resolver sem ter que mudar a versão nos micros?

Código:

Dim stDocName, Servico1, Servico2, UserAdm As String
    Servico1 = servico1txt
    Servico2 = servico2txt
    UserAdm = txtUserAtual
   
    If IsNull(chave1txt) Or IsNull(chave2txt) Then
    MsgBox "Por favor, informe uma chave", vbExclamation, "Mensagem"
       
    Else
   
    If Servico1 = Servico2 Then
   
    DoCmd.SetWarnings False
    stDocName = "RegistroTroca"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   
    DoCmd.SetWarnings False
    stDocName = "UpdateTrocaEscala1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   
    DoCmd.SetWarnings False
    stDocName = "UpdateTrocaEscala2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   
           
    MsgBox "Troca efetuada!", vbInformation, "Sucesso"
   
   
chave1txt = ""
chave2txt = ""

refresh

Else
   
    MsgBox "Serviços diferentes!", vbExclamation, "Mensagem"
    Exit Sub
End if

Este que as vezes não funciona

Código:

UPDATE TabTroca, TabEscala SET TabEscala.Servico = [Formulários]![FrmEscala]![servico1txt], TabEscala.DiaEscala = [Formulários]![FrmEscala]![DiaEscala1txt], TabEscala.HoraEscala = [Formulários]![FrmEscala]![HoraEscala1txt], TabEscala.SupResp = [Formulários]![FrmEscala]![SupResp1txt]
WHERE (((TabEscala.ChaveOp)=[Formulários]![FrmEscala]![chave2txt]) AND ((TabEscala.DiaFDS)=[Formulários]![FrmEquipe]![DiaTxt]));


Na realidade, acho que não seja problema da consulta e sim que ao executar o evento de click do botão, não é 'lida' a linha do vba (em alguns momentos apenas) cfe abaixo:

Código:

DoCmd.SetWarnings False
    stDocName = "UpdateTrocaEscala2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Mas todos os testes no meu computador funcionaram. Pode ser concorrência de informações?

?????