Visual Basic.NET - Guardar imágenes en Access

Private Sub RutaFoto_AfterUpdate()

'Asignación de la ruta al control de imagen llamado

'ImagenInmo pero como imagen -Picture-

    If Not IsNull(RutaFoto) Then

        ImagenInmo.Picture = RutaFoto

    Else

        ImagenInmo.Picture = ""

    End If

End Sub

Public Sub ver()

        Try

            With datos.Tables(0).Rows(posicion)

                Me.PictureBox1.Image = Nothing

                Me.TextBox1.Text = .Item("ced_empleado")

                Me.TextBox2.Text = .Item("apellidos_empleado")

                Me.TextBox3.Text = .Item("nombres_empleado")

                If .Item("foto_empleado") = "Ninguno" Then

                    Me.PictureBox1.Image = Nothing

                Else

                    Me.PictureBox1.Image = System.Drawing.Image.FromFile(Ruta & "fotos" & .Item("foto_empleado"))

                End If

            End With

        Catch

        End Try

end sub

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

        If Len(Trim(Me.TextBox1.Text)) = 0 Then

            MsgBox("Debe seleccionar un empleado")

            Exit Sub

        End If

        Me.PictureBox1.Image = Nothing

        Dim k As New OpenFileDialog

        k.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|.*png|*.png"

        k.InitialDirectory = "c:"

        If k.ShowDialog = Windows.Forms.DialogResult.OK Then

            Me.PictureBox1.Image = Nothing

            FileCopy(k.FileName, Ruta & "fotos" & Me.TextBox1.Text & ".jpg")

            Me.PictureBox1.Image = System.Drawing.Image.FromFile(k.FileName)

            foto = Me.TextBox1.Text & ".jpg"

        End If

    End Sub

public sub guardar()

Dim pi As String

            pi = "insert into Empleado values(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "','" & foto & "')"

            If Con.State = ConnectionState.Closed Then Con.Open()

            Dim cma As New OleDb.OleDbCommand(pi, Con)

            cma.ExecuteNonQuery()

            Con.Close()

            MsgBox("Empleado Guardado")

            Habilitar(Me, False)

            Limpiar(Me)

end sub