Dim cn As New OleDbConnection("Your connection string")
Dim cmd As New OleDbCommand("SELECT ImageColumn From YourTable WHERE ImageName = @ImageName", cn)
cmd.Parameters.AddWithValue("@ImageName", ImageName)
cn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read() Then
Dim b() As Byte = dr.Item("ImageBlobColumn")
Dim ms As New IO.MemoryStream
ms.Write(b, 0, b.Length)
PictureBox1.Image = Image.FromStream(ms)
ms.Close()
End If
dr.Close()
Dim b() As Byte = CType(ds.Tables("TableName").Rows(1)("ColumnName"), Byte())