вставка картинок

[SlavaPetrov]

Есть таблица в базе Access на основании данных из "Поле1" нужно вставить картинку в поле "Вложение". Картинки лежат в отдельной папке, имена картинок такие же как данные в "Поле1". Можно было бы вставить и вручную, но строк в таблице примерно 6000.

[Aleksandr H.]

Sub DoSmth()
Dim rsPictures As Recordset
With CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset)
    If Not (.BOF And .EOF) Then
            .MoveFirst
            Do While Not .EOF
                .Edit
                Set rsPictures = .Fields(2).Value
                rsPictures.AddNew
                rsPictures.Fields("FileData").LoadFromFile "D:\ПАПКА_С_ФОТО\" & .Fields(1).Value
                rsPictures.Update
                .Update
                .MoveNext
            Loop
        End If
        .Close
End With

End Sub