Dim strColore As String
        Dim objconn As New SqlConnection("data source=.; integrated security=SSPI; initial catalog=Utili")
        objconn.Open()

        strColore = TxtColore.Text 'colore passato di esempio

        Dim objcmd As New SqlCommand("insert into colori (colore) values (@c)", objconn)
        objcmd.Parameters.Add("@c", SqlDbType.VarChar, 20)

        ' se la stringa è vuota inserisco un dbnull.value
        If String.IsNullOrEmpty(strColore) Then
            objcmd.Parameters("@c").Value = DBNull.Value
        Else
            objcmd.Parameters("@c").Value = strColore
        End If

        objcmd.ExecuteNonQuery()

        objconn.Close()