tratar con imagenes

Question

muy buenas con todos disculpen pero me pueden ayudar

eh estado aprendiendo bastante sobre vb
pero se que me falta mucho y quisiera que me explicaran  como poder guardar imagenes en vb.net estoy haciendo un pequeño programa y pero no se como guargar una imagen en una base de datos me podrias ayudar este es mi codigo

'este codigo pertenece al boton de guardar

Public Class Personal

Dim conexioN As New Class_personal
Dim datos As New Class_dat_personal

 Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Nuevo.Click   

         datos.Cod_Personl = bcodigo.Text

            datos.nombr = Bnombre.Text
            datos.apelli = Bapellido.Text

  If Nuevo.Text.ToLower = "nuevo" Then
            Nuevo.Text = "Guardar"
            habilitar_Click()
        Else
            Nuevo.Text = "Nuevo"
            Try
                If conexioN.ingresar_dtos_personal_(datos) Then
                    MessageBox.Show("los datos han sido guardados", "guardado", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    limpiar()
                    desabilitar_Click()
                End If
            Catch ex As MySqlException
                MessageBox.Show("los datos NO se han guardado", "guardar", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                cerrar()
            End Try
        End If

end sub

end class

Public Class Class_personal
    Private adaptador As New MySqlDataAdapter
    Public Function ingresar_dtos_personal_(ByVal datos As Class_dat_personal) As Boolean
        Dim estado As Boolean = True

        Try
            conex_Global()
            adaptador.InsertCommand = New MySqlCommand("Insert into personal (CI,Nombre,Apellido,Direccion,Sexo,Razon_social,Celular,Convencional) values(@CI,@Nombre,@Apellido,@Direccion,@Sexo,@Razon_social,@Celular,@Convencional)", conexion)

            adaptador.InsertCommand.Parameters.Add("@CI", MySqlDbType.VarChar, 11).Value = datos.Cod_Personl
            adaptador.InsertCommand.Parameters.Add("@Nombre", MySqlDbType.VarChar, 45).Value = datos.nombr
            adaptador.InsertCommand.Parameters.Add("@Apellido", MySqlDbType.VarChar, 45).Value = datos.apelli
            adaptador.InsertCommand.Parameters.Add("@Direccion", MySqlDbType.VarChar, 45).Value = datos.dreccion
            adaptador.InsertCommand.Parameters.Add("@Sexo", MySqlDbType.VarChar, 2).Value = datos.sex
            adaptador.InsertCommand.Parameters.Add("@Razon_social", MySqlDbType.VarChar, 45).Value = datos.razon_soc
            adaptador.InsertCommand.Parameters.Add("@Celular", MySqlDbType.VarChar, 10).Value = datos.celu
            adaptador.InsertCommand.Parameters.Add("@Convencional", MySqlDbType.VarChar, 7).Value = datos.conve
            adaptador.InsertCommand.Parameters.Add("@picture", MySqlDbType.LongBlob).Value = datos.picture

            conexion.Open()
            adaptador.InsertCommand.Connection = conexion
            adaptador.InsertCommand.ExecuteNonQuery()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
            estado = False
        Finally
            cerrar()
        End Try
        Return estado
    End Function

end class

Public Class Class_dat_personal
    Private cod_personal As String
    Private Nombre As String
    Private apellido As String
    Private celuar As String
    Private convenci As String
    Private razon_social As String
    Private direccion As String
    Private sexo As String

    Private pictur As Byte

    Public Property picture As Byte

        Get
            Return pictur
        End Get
        Set(value As Byte)
            pictur = value
        End Set
    End Property
end class