Загрузка картинки из PictureBox в базу данных

Imports System.Data.OleDb
Imports System.IO
Imports System.Data.Common
'…
Private Sub Write_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Path.Combine(Application.StartupPath, "dbImg.mdb") & "; Password=;")
    Dim cmd As New OleDbCommand("INSERT INTO `tst1` ( `Img` ) VALUES ( ? ) ", conn)
    Dim DbParameter As New OleDbParameter("Img", OleDbType.VarBinary)
    Dim imagePB As Image = PictureBox1.Image
    Dim ms As New MemoryStream()
    imagePB.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
    DbParameter.Value = ms.ToArray()
    cmd.Parameters.Add(DbParameter)
    conn.Open()
    cmd.ExecuteNonQuery()
    conn.Close()
    ms.Dispose()
End Sub
Private Sub Load_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Path.Combine(Application.StartupPath, "dbImg.mdb") & "; Password=;")
    Dim cmd As New OleDbCommand("SELECT Img FROM tst1 WHERE ID = 3", conn)
    conn.Open()
    Dim DbReader As OleDbDataReader = cmd.ExecuteReader()
    If DbReader.HasRows Then
        Dim ms As New MemoryStream()
        For Each record As DbDataRecord In DbReader
            ms.Write(DirectCast(record("Img"), Byte()), 0, DirectCast(record("Img"), Byte()).Length)
        Next
        PictureBox1.Image = Image.FromStream(ms)
        ms.Dispose()
    Else
        MsgBox("Нет данных!")
    End If
    conn.Close()
End Sub