一个按钮实现两个以上的操作查询

用“DoCmd.RunSQL”方法实现操作查询确实能减少数据库对象，

其基本格式为
Public Sub DoSQL()


    Dim SQL As String
    
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"


    DoCmd.RunSQL SQL
    
End Sub 

要实现两个以上的操作查询不知如何改这个代码？是不是要声明两个以上的变量写成下面的代码？

Public Sub DoSQL()


    Dim SQL As String
    Dim SQL1 As String
    
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"
    DoCmd.RunSQL SQL


    SQL1 = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"
    DoCmd.RunSQL SQL1
    
End Sub 
谢谢！！！