Visual Basic.NET - Como mandar a guardar el color de una columna de un gridview(DEVEXPRESS) en SQL

"INSERT INTO Colores(IdColor, Color) VALUES (@idcolor, @color)"

Dim cd As New ColorDialog()

If e.Column.AbsoluteIndex = 1 Then

    If cd.ShowDialog() = DialogResult.OK Then

        V_quincenaII.Columns(1).AppearanceCell.BackColor = cd.Color

        V_quincenaII.Columns(1).OptionsColumn.ReadOnly = True

    End If

End If

// Usando el namespace

Imports System.Drawing.Color

// Color a cadena HTML

Dim color As Color = Color.Blue

Dim sColor As String =  ColorTranslator.ToHtml(color)

// Cadena HTML a Color

Dim SColor As String = "#FFFFFF"

Dim color As Color= ColorTranslator.FromHtml(sColor)

Public Sub registrarColor(ByVal color As Integer)

        Try

            Using con As New SqlConnection(Rutina.CadenaConexion())

                con.Open()

                Dim query As String = "INSERT INTO Colores(Color) VALUES (@color)"

                Dim cmd As New SqlCommand(query, con)

                cmd.CommandType = CommandType.StoredProcedure

                cmd.Parameters.AddWithValue("@color", color)

                cmd.ExecuteNonQuery()

                MessageBox.Show("Color guardado!")

            End Using

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    If cd.ShowDialog() = DialogResult.OK Then

                V_quincenaII.Columns(1).AppearanceCell.BackColor = cd.Color

                V_quincenaII.Columns(1).OptionsColumn.ReadOnly = True

                'Guardo el color

                registrarColor(cd.Color.ToArgb)

            End If