Select и update в один запрос? - VB

Формулировка задачи:

Подскажите эти запросы, сделать в один запрос?
vbSQL = "SELECT NPD, SUM " _
& "FROM F_VPL_T " _
& "WHERE F_VPL_T.GOD='" & vbYY1 & "' " _
& "AND F_VPL_T.MES='" & vbMM1 & "';"
Set ADOrs = ADOcn.Execute(vbSQL)
Do Until ADOrs.EOF
DoEvents
vbSQL2 = "UPDATE SUBS " _
& "SET SUBS.SUM1 = '" & ADOrs.Fields(1).Value & "' " _
& "WHERE SUBS.NPD = '" & ADOrs.Fields(0).Value & "';"
Set ADOrs2 = ADOcn.Execute(vbSQL2)
ADOrs.MoveNext
Loop

Решение задачи: «Select и update в один запрос?»

textual
                            Листинг программы 
                        

                            UPDATE SUBS 
  <font color="blue">SET</font> SUM1 = F_VPL_T.SUM
FROM 
  F_VPL_T
WHERE 
  SUBS.NPD = F_VPL_T.NPD
  <font color="blue">AND</font> F_VPL_T.GOD = чему-то
  <font color="blue">AND</font> F_VPL_T.MES = чему-то
                        