Update column from select

[vmon]

I am trying to update a column where item id's are equal. I know how to do it in tsql but am not that familiar with how to get it done in vba. Could you help? Here is a statement.

strsql = "UPDATE A SET A.DemandStdDev = StdDeviation " & _
"FROM tmpBaseStock A INNER JOIN " & _
"(SELECT ID_ITEM As Item, StDev(qryBaseCalcGetHistory.SumOfQTY_SHIPPED) AS StdDeviation " & _
"FROM qryBaseCalcGetHistory " & _
"GROUP BY qryBaseCalcGetHistory.ID_ITEM) " & _
" b ON A.ID_ITEM = b.Item "
Thanks,
vmon