Add Picture Problem / Code For OLE Object Browser

trying to get; add picture, done. i´m using the northwind example in my database. below is the code behind my form.

Code:Option Compare Database Option Explicit Dim path As String Private Sub cmdExit_Click() DoCmd.Close End Sub Private Sub cmdMenu_Click() DoCmd.Close DoCmd.OpenForm "frmMenu", acNormal, , , acFormReadOnly End Sub Private Sub cmdNieuweFoto_Click() getFileName End Sub Private Sub Form_RecordExit(Cancel As Integer) ' De label errormsg verbergen om te voorkomen dat het scherm ' knippert bij het navigeren naar een andere record. ErrorMsg.Visible = False End Sub Private Sub cmdFotoVerwijderen_Click() Me![ImagePath] = "" hideImageFrame ErrorMsg.Visible = True End Sub Private Sub Form_AfterUpdate() ' Query opnieuw uitvoeren op de keuzelijst met invoervak ' Superieur nadat een record is gewijzigd. Vervolgens de ' label errormsg weergeven als er geen naam voor het ' fotobestand is ingevuld of de foto weergeven als een ' geldige bestandsnaam is ingevuld. On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!ImagePath) = True) Then Me![ImageFrame].Picture = path & Me![ImagePath] Else Me![ImageFrame].Picture = Me![ImagePath] End If End Sub Private Sub ImagePath_AfterUpdate() ' De foto van de medewerker weergeven zodra het fotobestand ' is geselecteerd. On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!ImagePath) = True) Then Me![ImageFrame].Picture = path & Me![ImagePath] Else Me![ImageFrame].Picture = Me![ImagePath] End If End Sub Sub getFileName() ' Geeft het Office-dialoogvenster Bestand openen weer van ' waaruit een fotobestand voor de huidige medewerkersrecord ' kan worden gekozen. Het geselecteerde bestand wordt in het ' besturingselement voor afbeeldingen weergegeven. Dim fileName As String Dim result As Integer With Application.FileDialog(msoFileDialogFilePicker) .Title = "Foto van medewerker selecteren" .Filters.Add "Alle bestanden", "*.*" .Filters.Add "Gifs", "*.gif" .Filters.Add "Bitmaps", "*.bmp" .FilterIndex = 3 .AllowMultiSelect = False .InitialFileName = CurrentProject.path result = .Show If (result <> 0) Then fileName = Trim(.SelectedItems.Item(1)) Me![ImagePath].Visible = True Me![ImagePath].SetFocus Me![ImagePath].Text = fileName Me![merk].SetFocus Me![ImagePath].Visible = False End If End With End Sub Sub showErrorMessage() ' De label errormsg weergeven als het fotobestand niet ' beschikbaar is. If Not IsNull(Me![foto]) Then ErrorMsg.Visible = False Else ErrorMsg.Visible = True End If End Sub Function IsRelative(fName As String) As Boolean ' Onwaar als resultaat geven als de bestandsnaam een station ' of UNC-pad bevat IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\") = 0) End Function Sub hideImageFrame() ' Het besturingselement voor afbeeldingen verbergen Me![ImageFrame].Visible = False End Sub Sub showImageFrame() ' Het besturingselement voor afbeeldingen weergeven Me![ImageFrame].Visible = True End Sub

the remove picture button works fine, the picture is actualy removed from the database. but the add picture buton wont work, i get an error. i have a idea wy. the northwind DB uses text in its table for the picture ( to define a path). but my database is using OLE object in the table for the pictures. i select add object » use file » and browse for the pic (and fill the checkbox to merge the pic with the DB). northwind uses "getFile" (opens a file browser) to define a path and i think it´s only text based and won´t work with OLE objects.
does annybody know the code to get the OLE Object browser (see atached pic).

to make it short: neet the code to open the OLE Object browser (if there is a code). if somebody thinks the problem is something else, tell me plz.

thanks