image storage in MS Access Data Table

Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
Dim RS As ADODB.Recordset
Dim mstream As ADODB.Stream
Dim strQry As String

strQry="SELECT [picturefieldname] FROM [tablename] WHERE [primaryfieldname]=primaryfieldvalue"

Set RS = New ADODB.Recordset
With RS
   .LockType = adLockOptimistic
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .Open strQry, cn
End With
    
Set mstream = New ADODB.Stream
mstream.Open
mstream.Type = adTypeBinary
mstream.LoadFromFile FilePathAndName
RS.Fields(PictureFieldName) = mstream.Read
RS.Update