[VBA/ACCESS] Percorso relativo e caricamento immagini in campo OLE

[xamira]

vorrei sapere come fare x usare questo script in access x caricare immagini in un campo ole collegato ad un campo dove digito il num di foto.
i campi che ho sono:
Immagine28=NomeControlloImmagine
Foto=Percorso


Me.NomeControlloImmagine.Picture=RetPathFe(Current db.Name) & Me.Percorso

RetPathFe è una Funzione che estrae dal Nome Completo del DB solo il
Percorso
che ti allego sotto:

Public Function RetPathFe() As String
Dim strPath As String
strPath = CurrentDb.Name
RetPathFe = Left(strPath, Len(strPath) - Len(Dir(strPath)))
End Function

ho provato ma a me non funziona, voglio usare questa xkè posso spostare il db da un hd all'altro senza problemi

Ciao e grazie

[xamira]

dimenticavo, la cartella dove sono le immagini si chiama imma