Как решить ошибка синтаксиса в инструкции Update

---

когда я попробовал этот код он дает синтаксическую ошибку в инструкции update пожалуйста помогите мне решить эту ошибку

Что я уже пробовал:

  Public Sub ud()
        Try
            Dim oledbcommand As String = "UPDATE Personal  SET EmpID=? , EmpName=? , CATIAV5=? , UGNX=? , FIDES=? , PROE=? , SOLIDWORKS=? , SOLIDEDGE=? , ROBCAD=? , PROCESSSIMULATE=? , DECIMA=? , IGRIP=? , QUEST=? , EMPLANT=? , PROCESSDESIGNER=? , AutoCAD=? , FACTORYCAD=? , MICROSTATION=? , VBA=? , C/C++ =? , VBdotNET=? "
            Dim com As New OleDb.OleDbCommand(oledbcommand, con)
            com.Connection = con
            com.Parameters.AddWithValue("?", cboxempid.Text)
            com.Parameters.AddWithValue("?", cboxfname.Text)
            com.Parameters.AddWithValue("?", cboxcatia.Text)
            com.Parameters.AddWithValue("?", cboxugnx.Text)
            com.Parameters.AddWithValue("?", cboxfides.Text)
            com.Parameters.AddWithValue("?", cboxproe.Text)
            com.Parameters.AddWithValue("?", cboxsworks.Text)
            com.Parameters.AddWithValue("?", cboxsedge.Text)
            com.Parameters.AddWithValue("?", cboxrcad.Text)
            com.Parameters.AddWithValue("?", cboxpsimulate.Text)
            com.Parameters.AddWithValue("?", cboxdecima.Text)
            com.Parameters.AddWithValue("?", cboxigrip.Text)
            com.Parameters.AddWithValue("?", cboxquest.Text)
            com.Parameters.AddWithValue("?", cboxem.Text)
            com.Parameters.AddWithValue("?", cboxpdesigner.Text)
            com.Parameters.AddWithValue("?", cboxauto.Text)
            com.Parameters.AddWithValue("?", cboxfcad.Text)
            com.Parameters.AddWithValue("?", cboxmsta.Text)
            com.Parameters.AddWithValue("?", cboxvba.Text)
            com.Parameters.AddWithValue("?", cboxc.Text)
            com.Parameters.AddWithValue("?", cboxdotnet.Text)
            For Each parameter As OleDb.OleDbParameter In com.Parameters
                If parameter.Value Is Nothing Then
                    parameter.Value = DBNull.Value

                End If
            Next
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        con.Dispose()
    End Sub
End Class

---