Imports System.Data.OleDb
Imports System

Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' get a picture from db
        Dim contstr As String = "provider=Microsoft.Jet.oleDb.4.0;Data Source=" & Application.StartupPath & "\img_db.mdb"
        Dim conn As New OleDbConnection(contstr)
        Dim dataset1 As New DataSet
        Dim sqlStr As String = " select * from t_imag"
        Try
            conn.Open()
            Dim dataAdepter1 As New OleDbDataAdapter(sqlStr, conn)
            dataAdepter1.Fill(dataset1, "t_imag")
            '----------------
            Using ms As New IO.MemoryStream(CType(dataset1.Tables(0).Rows(0)("pic"), Byte()))
                Dim img As Image = Image.FromStream(ms)
                PictureBox1.Image = img
            End Using
            '------------------
            PictureBox1.ImageLocation = dataset1.Tables(0).Rows(0).Item(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conn.Close()
        End Try

    End Sub



End Class