下面的示例更新 Employees 表，将每一个 销售经理 的职务改为 销售部部长：

 Public Sub DoSQL() 
 
    Dim SQL As String 
     
    SQL = "Update Employees " & _ 
          "SET Employees.Title = '销售部部长' " & _ 
          "Where Employees.Title = '销售经理'" 
 
    DoCmd.RunSQL SQL 
     
End Sub