I got it with by inserting this procedure

Private Sub loadimage100(filespec)
Dim fs, f, s, t
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(filespec)
   s = UCase(f.Drive)
   t = s & (filespec)

Me.Image100.Picture = t
End Sub

then call the procdure