Foro de programacion

Hola a todos tengo una problema, stoy realizando un sistema y tengo un error que no me deja avanzar que es con la instruccion UPDATE

este es mi codigo y lo unico que quiero es modificar el registro

Set bd = OpenDatabase(App.Path & "\COMUR.mdb", False, False, ";PWD=tonala")
gsSql = ""
gsSql = "UPDATE Fracc SET " _
& ", Dia_DP =" & TxtDia_DP & "" & " ,Mes_DP ='" & UCase(CboMes_DP) & "'" & " ,Ayo_DP =" & TxtAyo_DP & "" _
& ", Dia_C =" & TxtDia_C & "" & " ,Mes_C ='" & UCase(CboMes_C) & "'" & " ,Ayo_C =" & TxtAyo_C & "" _
& ", Dia_Con =" & TxtDia_Con & "" & " ,Mes_Con ='" & UCase(CboMes_Con) & "'" & " ,Ayo_Con =" & TxtAyo_Con & "" _
& ", No_AC ='" & UCase(TxtNo_Ac) & "'" _
& ", Dia_AC =" & TxtDia_AC & "" & " ,Mes_AC ='" & UCase(CboMes_AC) & "'" & " ,Ayo_AC =" & TxtAyo_AC & "" _
& ", Diario ='" & UCase(CboDiario) & "'" _
& ", Dia_P =" & TxtDia_P & "" & " ,Mes_P ='" & UCase(CboMes_P) & "'" & " ,Ayo_P =" & TxtAyo_P & "" _
& ", No_RP ='" & UCase(TxtNo_RP) & "'" _
& ", Dia_RP =" & TxtDia_RP & "" & " ,Mes_RP ='" & UCase(CboMes_RP) & "'" & " ,Ayo_RP =" & TxtAyo_RP & "" _
& ", No_Of ='" & UCase(TxtNo_Of) & "'" _
& ", Dia_Of =" & TxtDia_Of & "" & " ,Mes_Of ='" & UCase(CboMes_Of) & "'" & " ,Ayo_Of =" & TxtAyo_Of & "" _
& ", No_S ='" & UCase(TxtNo_S) & "'" _
& ", Dia_S =" & TxtDia_S & "" & " ,Mes_S ='" & UCase(CboMes_S) & "'" & " ,Ayo_S =" & TxtAyo_S & "" _
& ", WHERE Fracc ='" & UCase(CboFracc) & ""
bd.Execute (gsSql)
bd.Close 'Cierre la base de datos/


gracias por su ayuda