Dim sStream As New ADODB.Stream
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Путь к базе\db.mdb;Uid=Admin;Pwd=;"
rs.Open "select * from ИмяТаблицы", con, adOpenDynamic, adLockBatchOptimistic
With sStream
    .Type = adTypeBinary
    .Open
    .LoadFromFile "C:\WINDOWS\Японский мотив.bmp" ' считываем рисунок в объект Stream
End With
' ввод данных
With rs
    .AddNew
    .Fields("Fimage").Value = sStream.Read ' поле с типом Binary
    .Fields("Desc").Value = "Описание дефекта" ' поле с типом Text
    .UpdateBatch
End With
sStream.Close
rs.Close
con.Close
Set rs = Nothing
Set sStream = Nothing
Set con = Nothing