Recordset não pode se atualizado

Boa noite,
Estou com um problema no Login

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.txtOperador = vgOperador
txtDataMod = Now()
txtHoraMod = Now()
End Sub

Private Sub Form_Load()
Me.txtOperador = vgOperador Está dando como Me.txtOperador = ""  e vgOperador = ""
End Sub

Desde já agradeço pela ajuda.

Att.

Bom dia,
altere o código
para após atualizar.

Teste e nos retorne
por favor.