Set cn = CreateObject ("ADODB.Connection")
Set DataStream = CreateObject("ADODB.Stream")
cn.ConnectionString = "DSN=test;"
cn.open

const adTypeBinary=1
const adOpenStatic=3
const adLockOptimistic=3

cn.Execute "drop table if exists bug66095"

cn.Execute "create table bug66095 (id int primary key auto_increment, b1 blob, b2 blob)"

SQL = "SELECT id,b1 FROM bug66095"
Set rs = CreateObject ("ADODB.Recordset")

rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic

rs.open SQL, cn

rs.addNew

rs("id") = 2

DataStream.Type = adTypeBinary
DataStream.Open
DataStream.LoadFromFile "cat_picture.jpg"
rs("b1") = DataStream.Read
DataStream.Close

rs.update

rs.close
Set rs = Nothing

cn.close
Set cn = Nothing

MsgBox "DONE!!!!"