Visual Basic.NET - Mostrar imagen en Picturebox con access

Imports Microsoft.Office.Core

Imports Microsoft.Office.Interop.Access

Imports System.Data

Imports System.Data.OleDb

Public Class f1

    Dim conexion As New OleDbConnection

    Dim adaptador As New OleDbDataAdapter

    Dim registro As New DataSet

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Try

            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Prueba Excel\B.D.accdb"

            conexion.Open()

            MsgBox("conetado")

        Catch ex As Exception

            MsgBox("no conexion")

        End Try

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim consulta As String

        Dim lista As Byte

        If TextBox1.Text <> "" Then

            consulta = "SELECT * FROM alusan WHERE matricula = '" & TextBox1.Text & "'"

            adaptador = New OleDbDataAdapter(consulta, conexion)

            registro = New DataSet

            adaptador.Fill(registro, "alusan")

            lista = registro.Tables("alusan").Rows.Count

            If lista <> 0 Then

                data.DataSource = registro

                data.DataMember = "alusan"

                'm myb' Diytearray() As Byte = registro.Tables("alusan").Rows(0).Item("foto")

                'Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(mybytearray)

                ' pin.Image = System.Drawing.Image.FromStream(ms)

            Else

                MsgBox("no ay registo")

                TextBox1.Clear()

                TextBox1.Focus()

                data.Columns.Clear()

            End If

        End If

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        conexion.Close()

        Me.Close()

    End Sub

End Class