Run SQL

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