I am trying to update Access database from excel worksheet data through SQL Update statement in VBA macro. But I am getting syntax erro in Update statement. The access table name is "Receiving". The code is as follows :

Private Sub Receiving_Update()
Set cn = CreateObject("ADODB.Connection")
DBPath = "C:\Anand\Others\Excel\Access to Excel" & "\Payment_Management2.accdb"
dbWb = "C:\Anand\Others\Excel\Access to Excel\Payment Management.xlsm" ' file name to be changed
dbWs = "Data Entry"
scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath
dsh = "[" & "Data Entry" & "$]"
cn.Open scn

Dim sSQL As String

sSQL = "Update Receiving "
sSQL = sSQL & "set (b.[GSK_Rec_Dt] = a.[GSK_Rec_Dt]),(b.[Fin_Rec_Dt] = a.[Fin_Rec_Dt]),(b.[Inv_No] = a.[Inv_No]) from [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh & Chr(32) & "a" & Chr(32) & ",Receiving b " & Chr(32) & "where b.[PRDOC] = a.[Receiving_No]"

Debug.Print sSQL
cn.Execute sSQL


End Sub

I am not able to understand the reason for syntax error. Please help.