Sql Update Syntax Error

[Yessen]

keeps giving me the SYNTAX ERROR UPDATE for this chunk of code.
got stuck here for a while, could someone point me to an error. i am simply giving up on it after this point.

sqlUpdStr = "UPDATE PDDEstimates SET" & _
"DesktopComplexity = '" & CheckNull(Me.Desktop_impact_cbx.Value) & "' , InfraStructureComplexity = '" & CheckNull(Me.Infrastructure_impact_cbx.Value) & "', " & _
"WebSvcComplexity = '" & CheckNull(Me.Webservices_impact_cbx.Value) & "', WebShpComplexity = '" & CheckNull(Me.Webshipping_impact_cbx.Value) & "', " & _
"BRArchitecture = '" & CheckNull_i(Me.BRArchMeetings_txt.Value) & "', BRWorkSession = '" & CheckNull_i(Me.BRWorkMeetings_txt.Value) & "', BROtherPortfolio = '" & CheckNull_i(Me.BROtherPort_txt.Value) & "', " & _
"BRPeerReview = '" & CheckNull_i(Me.BRPeerReview_txt.Value) & "', BRFinalReview = '" & CheckNull_i(Me.BRFR_txt.Value) & "', BRTotalMeetings = '" & CheckNull_i(Me.BRTotalMeetings_txt.Value) & "', " & _
"BRUseCases = '" & CheckNull_i(Me.BRUseCases_txt.Value) & "', BREffort = '" & CheckNull_i(Me.BREffortHours_txt.Value) & "', " & _
"FDDArchitecture = '" & CheckNull_i(Me.FDDArchMeetings_txt.Value) & "', FDDWorkSession = '" & CheckNull_i(Me.FDDWorkMeetings_txt.Value) & "', FDDOtherPortfolio = '" & CheckNull_i(Me.FDDOtherMeetings_txt.Value) & "', " & _
"FDDFRs = '" & CheckNull_i(Me.FDDFR_txt.Value) & "', FDDDUT = '" & CheckNull_i(Me.FDDDUT_txt.Value) & "', FDDCTCIM = '" & CheckNull_i(Me.FDDCTCIM_txt.Value) & "', FDDTotalMeetings = '" & CheckNull_i(Me.FDDTotalMeetings_txt.Value) & "', " & _
"FDDUseCases = '" & CheckNull_i(Me.FRUseCases_txt.Value) & "', FDDEffort = '" & CheckNull_i(Me.FDDEffortHours_txt.Value) & "', " & _
"WFReviewInd = '" & CheckBoolNull(Me.WireFramesNeeded_go.Value) & "', WFEstNumber = '" & CheckNull_i(Me.WireFrameEst_txt.Value) & "', WFReviewNum = '" & CheckNull_i(Me.WireFrameReviews_txt.Value) & "', " & _
"AnalystTotalEffort = '" & CheckNull_i(Me.TotalAnalystEffortHours_txt.Value) & "', AnalystComments = '" & escChars(Me.ReqAnaComments_txt.Value) & "', " & _
"UpdateTimestamp = #" & Now & "#, UpdateById = '" & GV_s_Userid & "', ProgramId = '" & "ReqAna" & "', RecStsCd = '" & s_recStsCd & "', iRiseInd = '" & CheckBoolNull(Me.iRiseNeeded_go.Value) & _
"'WHERE PDDControlNum = '" & GV_s_PDDControlNum & "' AND ERDate = #" & GV_s_ERDate & "# AND PDDEstimatesSeqNum = '" & GV_i_seq_num & "';"

 

[Yessen]

also i use these help functions in my update sql piece.

Private Function CheckNull_i(ByVal field As Variant)
If Not IsNull(field) Then
CheckNull_i = "'" & field & "'"
Else
CheckNull_i = "'0'"
End If

Private Function CheckBoolNull(ByVal field As Variant)
If Not IsNull(field) Then
CheckBoolNull = field
Else
CheckBoolNull = False
End If

End Function
Private Function CheckNull(ByVal field As Variant)
If Not IsNull(field) Then
CheckNull = "'" & field & "'"
Else
CheckNull = "''"
End If