Error con la ñ y los acentos

[igonfil]

Hola RootK. El Error me da una vez que pulso el botón (en el cmd.ExecuteNonQuery()) El código es el siguiente:

Imports System.Data.SqlClient
Public Class Form1
Dim CadenaConexion As String = "server=192.168.1.33;Uid=sa;pwd=pass;dataBase=Mani otas"
Private _Negrita As Boolean

Public Property Negrita() As Boolean
Get
Return _Negrita
End Get
Set(ByVal value As Boolean)
_Negrita = value
End Set
End Property
Private Sub CkBNeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CkBNeg.CheckedChanged
If RTBNotic.SelectedText.Length > 0 Then

RTBNotic.SelectionFont = New Font("Arial", 10, FontStyle.Bold)

End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
'Lo utilizamos para mostrar en el formulario las noticias de la base de datos
con.ConnectionString = CadenaConexion
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Noticias"
dr = cmd.ExecuteReader
Do While dr.Read 'recorre el data reader mientras tenga datos dentro
'Saca de la base de datos el contenido de la celda noticias y lo muestra en el RTBNotic. Al tener la propiedad Rtf nos muestra el resultado que queremos del estilo (el texto en negrita) de la fuente, si en vez de tener la propiedad RTF fuera Text lo que nos mostraría es el código completo del estilo del texto que contiene la celda
RTBNotic.Rtf = dr("noticias")
Loop
dr.Close()
con.Close()
End Sub

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
'RTBNotic.Rtf lo que hace es guardar en la base de datos el contenido del RichTextBox junto al estilo del texto en formato código
Dim negrita As String = "Update Noticias set Noticias = '" & RTBNotic.Rtf & "'"


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

Un saludo.