Estilo de texto en base de datos

[igonfil]

Gracias jhonwilliams, pero sigue sin funcionarme. Probe de otra forma pero sigue sin funcionar. El código que utilicé es el siguiente (El resultado que quisiera es como el botón de texto en negrita que hay en esta web en el apartado de "mensaje" y "responder mensaje"):

Private Sub btnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMod.Click
Dim con As New SqlConnection
Dim cmd As New SqlCommand

con.ConnectionString = CadenaConexion
con.Open()
cmd.Connection = con
Dim negrita As String = "Update Noticias set " & "Noticias = '" & RTBNotic.Rtf & "'"

RTBNotic.Clear()
RTBNotic.SelectionFont = Form.DefaultFont
Dim t As String = RTBNotic.Rtf
'A la primera línea le sigue obligatoriamente la tabla de fuentes
Dim z As Integer = t.IndexOf("{\fonttbl{")
Dim primeralinea As String
primeralinea = t.Substring(0, z)

'Y aquí el que extrae la definición de una fuente:
RTBNotic.Clear()
RTBNotic.SelectionFont = Form.DefaultFont
Dim c As String = RTBNotic.Rtf
Dim rr() As String

'Localizo el nombre de la fuente y parto el texto en dos
rr = Split(t, Font.FontFamily.Name)
'Rastreo la llave izquierda
Dim k1 As Integer = rr(0).LastIndexOf("{")
'y extraigo el fragmanto a partir de ella
Dim s1 As String = rr(0).Substring(k1)

'Rastreo la llave derecha
Dim k2 As Integer = rr(1).IndexOf("}")
'y extraigo el fragmanto hasta ella
Dim s2 As String = rr(1).Substring(0, k2 + 1)

'Uno las tres piezas y ya tengo {La cadena completa entre llaves}
Dim s As String = s1 & Font.FontFamily.Name & s2

'sustituyo el índice cero por el que será correcto en mi documento
RTBNotic.SelectedText = s.Replace("{\f0\", "{\f" & primeralinea & "\")

cmd.CommandText = negrita
cmd.ExecuteNonQuery()
con.Close()
End Sub

Muchas gracias y saludos