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!!!!"