SALVAR IMAGEM NO BANCO DE DADOS ACCESS

Crie um BD Access como mostrado abaixo:
id - Numeração Automática
nome - Texto
arquivoimagem - Objeto Ole

Adicione um Module no projeto:

Código do Module:

'Acima do Module Module1 coloque...

Imports System.Data.OleDb

'Entre o Module Module1 e o End Module no meio 

'coloque o código baixo...

Public acsconn As New OleDbConnection

Public acsdr As OleDbDataReader

Public acsda As New OleDbDataAdapter

Public acscmd As New OleDbCommand

Public strsql As String

Public acsds As New Dataset

Public Sub connect()

Try

acsconn.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= | datadirectory | \database.mdb;"

acsconn.Open()

If acsconn.State = ConnectionState.Open Then

MsgBox("Conectado")

Else

MsgBox("Erro!")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

/////////////////////////////////////////////////////////////////////

Form1:
Ligue o banco de dados ao formulário:

Adicione os seguintes itens no Form:

1 Botão - Abrir imagem

1 PictureBox - ligue ao campo arquivoimagem do banco de dados:
No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

1 OpenFileDialog

Load do Form1:

'Apague o Public e acima do Class Form1 coloque:

Imports System.IO

'como mostrado na imagem logo abaixo...

Código do Botão - Abrir imagem:

'Clique duas vezes no botão Abrir imagem e coloque o código abaixo...

OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png | all files (*.*) | *.*"

If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If