How to solve syntax error in update statement

  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