VBA中update代码怎么写，我的写法为什么错误

刚开始学习SQL语句，碰到些麻烦，希望老师多指点。谢谢了

Private Sub Command68_Click()
Dim adoRt                        As Object
  '// 创建ADO记录集对象
  Set adoRt = CreateObject("ADODB.RecordSet")

 If IsNull(Me![Text61]) Then
        MsgBox "审核结果。", vbInformation
        Me.Text61.SetFocus
    ElseIf IsNull(Me![Combo65]) Then
        MsgBox "审核人。", vbInformation
        Me.Combo65.SetFocus

    ElseIf IsNull(Me![Text63]) Then
        MsgBox "审核时间。", vbInformation
        Me.Text63.SetFocus
 
    Else

Me![Allow] = Me![Text61]
Me![supervisor] = Me![Combo65]
Me![TimeA] = Me![Text63]

Me.Text19.SetFocus
Me.Command68.Enabled = False
Me.Command69.Enabled = False
Me.Command73.Enabled = False
Me.Command74.Enabled = False

       If Me.Text29 = "带薪休假" Then
      
       update USysUsers Set USysUsers.UseD1 = UseD1 + Me!Text31,
       WHERE (((USysUsers.FUserName) = Me![Text19]))

       ElseIf Me.Text29 = "加班抵假" Then
       update USysUsers Set USysUsers.UseD2 = UseD2 + Me!Text31
       WHERE (((USysUsers.FUserName) = Me![Text19]))
       Else
        Me.Text19.SetFocus
       End If
   

End If
On Error GoTo Err_Command68_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command68_Click:
    Exit Sub

Err_Command68_Click:
    MsgBox Err.Description
    Resume Exit_Command68_Click
   DoCmd.GoToRecord , , acNext

End Sub

划红的部分出错了，

1这么写，说是Set “缺少结束语句 ” 

update USysUsers Set USysUsers.UseD1 = UseD1 + Me!Text31,
WHERE (((USysUsers.FUserName) = Me![Text19]))

2如果写成，说“子过程或函数未定义”

update USysUsers

Set USysUsers.UseD1 = UseD1 + Me!Text31,
WHERE (((USysUsers.FUserName) = Me![Text19]))

还有我想让USysUsers.UseD1 =  USysUsers.UseD1  + Me!Text31 该怎么写，我写的对吗？

多谢老师指点