Programacion para cargar una imagen

Hola amigos quisiera saber si alguien me podria pasar la programacion para cargar una imagen y actualizar cuando quiera en un formulario que esta conectado con una base de datos creada en SQL SERVER 2008 mi profesor me dejo esta programacion pero no me corre me sale error en: Me.CategoríasTableAdapter.Fill(Me.SqlNeptunoDataSet.Categorías) ME SALE ALGO DE QUE ¡ NO SE CONTROLÓ CONSTRAINTEXCEPTION...No se pudieron habilitar las restricciones. Una o varias filas contienen valores que infringen las restricciones NON-NULL, UNIQUE o FOREIGN-KEY..



Public Class Form2

Private Sub CategoríasBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles CategoríasBindingNavigatorSaveItem.Click
Me.Validate()
Me.CategoríasBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SqlNeptunoDataSet)

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'SqlNeptunoDataSet.Categorías' Puede moverla o quitarla según sea necesario.
Me.CategoríasTableAdapter.Fill(Me.SqlNeptunoDataSet.Categorías)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'CODIGO INSERTAR IMAGEN
'BUSCAR IMAGENES
OpenFileDialog1.DefaultExt = "Jpeg"
OpenFileDialog1.ShowDialog()
ImagenPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
ImagenPictureBox.Image = Image.FromFile(OpenFileDialog1.FileName)

Try
Dim conn As New System.Data.SqlClient.SqlConnection("Data Source=(local)\incasoft;Initial Catalog=SQLNEPTUNO;Integrated Security=SSPI")
Dim cmd As New System.Data.SqlClient.SqlCommand()

'Estableciento propiedades
cmd.Connection = conn
cmd.CommandText = "INSERT INTO Categorías VALUES (@IdCategoría,@NombreCategoría, @Descripción, @Imagen)"

'Creando los parámetros necesarios
cmd.Parameters.Add("@IdCategoría", System.Data.SqlDbType.Int)
cmd.Parameters.Add("@NombreCategoría", System.Data.SqlDbType.NVarChar)
cmd.Parameters.Add("@Descripción", System.Data.SqlDbType.NVarChar)
cmd.Parameters.Add("@Imagen", System.Data.SqlDbType.Image)

'// Asignando los valores a los atributos
cmd.Parameters("@IdCategoría").Value = Convert.ToInt32(IdCategoríaTextBox.Text)
cmd.Parameters("@NombreCategoría").Value = NombreCategoríaTextBox.Text
cmd.Parameters("@Descripción").Value = DescripciónTextBox.Text

'Asignando el valor de la imagen
' Stream usado como buffer
Dim ms As New System.IO.MemoryStream()
'Se guarda la imagen en el buffer
ImagenPictureBox.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
'Se extraen los bytes del buffer para asignarlos como valor para el parámetro.
cmd.Parameters("@Imagen").Value = ms.GetBuffer()

conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Registro Guardado Correctamente")
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' CODIGO ACTUALIZAR
Try
Dim conn As New System.Data.SqlClient.SqlConnection("Data Source=(local)\incasoft;Initial Catalog=SQLNEPTUNO;Integrated Security=SSPI")
Dim cmd As New System.Data.SqlClient.SqlCommand()
cmd.Connection = conn
cmd.CommandText = "UPDATE Categorías SET NombreCategoría = '" + NombreCategoríaTextBox.Text + "' WHERE IdCategoría = " + IdCategoríaTextBox.Text
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Registro Actualizado Correctamente")
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.CategoríasTableAdapter.Adapter.UpdateCommand.CommandText = "UPDATE Categorías SET NombreCategoría = '" + NombreCategoríaTextBox.Text + "' WHERE IdCategoría = " + IdCategoríaTextBox.Text
Me.CategoríasBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SqlNeptunoDataSet)
End Sub
End Class