'ЭТО работает в ADO 2.6 + Access 2000 SP2
'легко переноситься на VB5,6
'параметр Data функции (см. функцию) - это содержимое файла, который нужно засунуть в поле.
'В эту переменную я его закачивал так:

Dim intFile As Integer
Dim SelectedFileName As String
Dim FileBuff() As Byte
Dim FileLen As Long

Open SelectedFileName For Binary As #intFile
FileLen = LOF(intFile)
ReDim FileBuff(FileLen) As Byte
Get #intFile, , FileBuff()
Close #intFile

'потом массив FileBuff() передавал как Data в функцию
'******************************************************************
'а это сама функция - выдрана из живого приложения
'некоторые детали можно опустить
'думаю - разберешся
Function UpdateDocumentAttachment(CopyID As Long, Description As String, _
DescriptionOnly As Boolean, Optional Data As Variant, _
Optional DataLen As Long, Optional OriginalFileName As String) As Boolean
On Error GoTo Handle_Error
Dim UpdateDocumentAttachmentSP As ADODB.Command, ResumeCount As Integer
Dim UpdateedCopyID As Variant
Set UpdateDocumentAttachmentSP = New ADODB.Command

DoCmd.Hourglass True
With UpdateDocumentAttachmentSP
.CommandTimeout = 180
.CommandType = adCmdStoredProc
.CommandText = "dbo.UpdateDocumentAttachment"
'@CopyID int, @Data image, @OriginalFileName varchar (255), @Description varchar (255), @DescriptionOnly bit

.Parameters.Append UpdateDocumentAttachmentSP.CreateParameter _
("@CopyID", adBigInt, adParamInput, , CopyID)
.Parameters.Append UpdateDocumentAttachmentSP.CreateParameter _
("@Description", adVarChar, adParamInput, 255, Description)
.Parameters.Append UpdateDocumentAttachmentSP.CreateParameter _
("@DescriptionOnly", adInteger, adParamInput, , DescriptionOnly)

If DescriptionOnly Then GoTo ExecuteSP

.Parameters.Append UpdateDocumentAttachmentSP.CreateParameter _
("@Data", adLongVarBinary, adParamInput, DataLen + 1, Data) ' + 1 is due to bugs in ADO
.Parameters.Append UpdateDocumentAttachmentSP.CreateParameter _
("@OriginalFileName", adVarChar, adParamInput, 255, OriginalFileName)

ExecuteSP:
.ActiveConnection = CurrentProject.Connection
.Execute
End With

UpdateDocumentAttachment = True

DoCmd.Hourglass False
Set UpdateDocumentAttachmentSP = Nothing

ExitFunc:
Exit Function

Handle_Error:
ResumeCount = ResumeCount + 1
DoCmd.Hourglass False
MsgBox Err.Description, vbExclamation + vbOKOnly, _
"Failed to update document's digital copy"
If ResumeCount <> 3 Then Set UpdateDocumentAttachmentSP = Nothing 'deallocate storedproc reference
UpdateDocumentAttachment = False
Resume ExitFunc
End Function