Salvar o resultado de um colorDialog no banco de dados e Utilizar psoteriormente

Question

  Ola, tenho um pequeno problema:

  Estou realizando um software para controle de livros, 

Bom, indo direto ao ponto, em determinado momento eu precisarei cadastrar um gênero literário no banco de Dados, e pretendo cadastrar uma cor vinculada ao gênero, 

Portanto na Tabela gêneros eu  Cadastro o Nome do Genero é o Codigo da cor:

Conforme o Exemplo:

 Dim cor As String = Convert.ToString(ColorDialog1.Color)

        Try
            ModuleNextBook.inicia()
            Dim SQLCMD As New SqlCommand("insert into Generos(COD_USUARIO,NOME_GENERO,COD_COR) Values (" & CodUsuario & ", '" & UCase(TxtGenero.Text) & "', '" & cor & "')", connect)
            Dim result = SQLCMD.ExecuteNonQuery
            If result = 1 Then
                MsgBox("Cadastro Efetuado com Sucesso")
                ModuleNextBook.termina()
            End If

            ModuleNextBook.termina()
        Catch ex As Exception
            MsgBox("Erro de Banco " & Err.Number & " " & Err.Description)
        Finally
            ModuleNextBook.termina()
        End Try

Posteriormente eu pretendo usar o código da cor, por meio de uma consulta e configurar essa como a cor de alguns componentes de um formulário dedicado aos livros, ou seja inicialmente eu cadastrei o genero drama com o Código Color [Red], quando carregar o form para um livro com o gênero drama, esses componentes ficariam vermelhos..

Eu consigo efetuar o cadastro convertendo o resultado do ColorDialog para String, pois não consegui cadastrar caso a variável seja Color, estou com dificuldade, para resgatar esse codigo cadastrado e utiliza-lo :

Segue exemplo abaixo:

 Dim CodCor As String

  ModuleNextBook.inicia()
            Dim sqlcmd5 As New SqlCommand("SELECT * FROM GENEROS WHERE COD_USUARIO =" & CodUsuario & " AND COD_GENERO =" & CodGenero & "", connect)
            Dim result5 = sqlcmd5.ExecuteReader
            If result5.Read Then
                CodCor = result5("COD_COR")
                MessageBox.Show(CodCor) 'faço uma exibição para verificar se a consulta correu bem 

                Dim cor As Color = ColorTranslator.FromHtml(CodCor) 'Minha ultima tentativa foi converter a string que recebe o valor da consulta para o tipo Color, porem ocorre um erro

                Panel1.BackColor = cor
                ModuleNextBook.termina()
            End If
            ModuleNextBook.termina() 

 

Suponho que a minha grande dificulade esta em resgatar e utilizar o  resultado da consulta, Muito obrigado, Aguardo respostas