Aggiungere BMP dentro campo OLE

Private Sub ScriviCampoOle(sPictFile As String)
Dim lSize As Long
Dim lOffset As Long
Dim bytChunkData() As Byte
Dim iFileNum As Integer

iFileNum = FreeFile

Open sPictFile For Binary As #iFileNum
ReDim bytChunkData(FileLen(sPictFile))

Get #iFileNum, , bytChunkData
Close #iFileNum

'Inserisco il record nel rs temporaneo

adoRsTmp.Fields("natOleImg").AppendChunk bytChunkData
adoRsTmp.Update
End Sub