inserting Images from MS access database to vb.net picture boxes

I need help retrieving images (multiple) from an MS access database with OLE Object datatypes. i have no idea how to go about this so heres my code so far:

    Public Class Form3

Dim Rating_DB As String
Dim Type_DB As String
Dim Muscle_DB As String
Dim Equipment_DB As String
Dim MechanicsType_DB As String
Dim Level_DB As String
Dim Guide_DB As String
Dim Node As String
Dim Ex_DB As String
Dim DB_Conn As New ADODB.Connection
Dim Exercises As New ADODB.Recordset


Public Function DatabaseConnection()
    Dim Ex_ As String
    Dim Ex_Found As Boolean

    DB_Conn.Open("Provider = MICROSOFT.JET.OLEDB.4.0;" & "Data Source = '" & Application.StartupPath & "\Exercises.mdb'")
    Exercises.Open("Exercise_List", DB_Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

    Ex_Found = False
    Ex_ = "ExerciseName = '" & Node & "'"

    Exercises.Find(Ex_)
    If Exercises.BOF = False And Exercises.EOF = False Then
        Ex_DB = Exercises.Fields("ExerciseName").Value.ToString
        If Ex_DB <> Node Then
            Exercises.Close()
            DB_Conn.Close()
            Return False
        Else
            Ex_Found = True
            Rating_DB = Exercises.Fields("Rating").Value.ToString
            Type_DB = Exercises.Fields("Type").Value.ToString
            Muscle_DB = Exercises.Fields("Muscle").Value.ToString
            Equipment_DB = Exercises.Fields("Equipment").Value.ToString
            MechanicsType_DB = Exercises.Fields("MechanicsType").Value.ToString
            Level_DB = Exercises.Fields("Level").Value.ToString
            Guide_DB = Exercises.Fields("Guide").Value.ToString
            lblexercisename.Text = Ex_DB
            Return True
        End If
    End If
    Exercises.Close()
    DB_Conn.Close()
    Return False
End Function

Sub treeView1_NodeMouseClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
    Node = e.Node.Text

    If DatabaseConnection() = True Then
        btnrating.Text = Rating_DB
        lbltype.Text = Type_DB
        lblmuscle.Text = Muscle_DB
        lblequipment.Text = Equipment_DB
        lblmechanicstype.Text = MechanicsType_DB
        lbllevel.Text = Level_DB
        lblguide.Text = Guide_DB
    End If
End Sub

the code is currently working perfectly and im hoping to possibly expand on what i have so far, if not that is fine.

i tried to attach screenshots of the database but it says i dont have enough reputations