Sub lade_pics()
Dim Rdir, Rpic As DAO.Recordset
Dim Sfil As String
Set Rdir = CurrentDb().OpenRecordset("T_DIRS")
Set Rpic = CurrentDb().OpenRecordset("T_PICS")
Do While Not Rdir.EOF
    Sfil = Dir(Rdir!path & "\*.jpg", vbNormal)
    Do While Sfil <> ""
        Rpic.AddNew
        Rpic!path = Rdir!path
        Rpic!file = Sfil
        Rpic!bild = Rdir!path & "\" & Sfil [color=green]'<< Problem
        'Rpic!bild = link_to(Rdir!path & "\" & Sfil)
        Rpic.Update
        Sfil = Dir
    Loop
    Rdir.MoveNext
Loop
End Sub