کد ذخیره:

Dim bytImage() As Byte


Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
    Dim dialog As New OpenFileDialog()
    dialog.Title = "Browse Picture"
    dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
    If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(dialog.FileName)
    End If
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
    Try
        Dim ms As New System.IO.MemoryStream
        Dim bmpImage As New Bitmap(PictureBox1.Image)

        bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        bytImage = ms.ToArray()
        ms.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    cn.Open()
    cm.Connection = cn
    cm.CommandType = CommandType.Text
    cm.CommandText = "INSERT INTO `pic1` (pic) VALUES (@image)"
    cm.Parameters.AddWithValue("@image", bytImage)
    cm.ExecuteNonQuery()
    cn.Close()
    MsgBox("Image Saved.")
End Sub

کد نمایش عکس از دیتابیس:

Dim connection As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\AddressBook.mdb")

Dim command As New System.Data.OleDb.OleDbCommand("SELECT image FROM tblContacts WHERE ID = 22", connection)

connection.Open()
Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())
connection.Close()

Dim pictures As Image = Nothing

Using stream As New System.IO.MemoryStream(pictureData)
pictures = Image.FromStream(stream)

End Using

شاید دقیقا منظور شما نباشه. ولی باید خودتون کاستومایز کنید. موفق باشید