Private Sub Form_Current()
Dim res As Boolean
Dim fName As String


On Error Resume Next
errormsg.Visible = False
fName = dbPath & Me![Slika]


Me![ImageFrame].Picture = fName
showImageFrame
Me.PaintPalette = Me![ImageFrame].ObjectPalette
End Sub
Sub showImageFrame()
Me![ImageFrame].Visible = True
End Sub
Sub getFileName()

Dim fileName As String
Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Izaberite sliku"
.Filters.Add "Svi fajlovi", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = dbPath
result = .Show
If (result <> 0) Then
fileName = Right(Trim(.SelectedItems.Item(1)), InStr(StrReverse(Trim(.SelectedItems.Item(1))), "\") - 1)
Me![Slika].Visible = True
Me![Slika].SetFocus
Me![Slika].Text = fileName
Me![Slika].SetFocus
End If
End With
End Sub




Private Sub Form_Open(Cancel As Integer)
dbPath = CurrentProject.Path & "\Slike\"

End Sub

Mozeli neko da posalje gotov primer iz Accesa na ovu temu

Predlog:
Instaliraj office 2007 i stvar resena
Imas polje attach i radi to sto trazis.

Zahvalan sam na Vasem odgovoru, ali to nije odgovor za moj problem, meni je neophodan primer za navedenu proceduru