すいませんSQL特に初心者です

以下のコードはヘルプから抜粋ですが、一度のExecuteで
３フィールド（同一レコード）をUPDATEしたいのですが
SET 以降のフィールド＝更新値の区切りをどうすればいいでしょうか？
Sub UpdateX()

Dim dbs As Database
Dim qdf As QueryDef

' この下の行を、使用しているコンピュータ上の
' Northwind のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")

' 社員のレコードで現在 2 に設定されている
' ReportsTo フィールドの値をすべて
' 5 に変更します。
dbs.Execute "UPDATE Employees " _
& "SET ReportsTo = 5 " _
& "WHERE ReportsTo = 2;"

dbs.Close

End Sub