Buenas, te comento tengo algo de esto, pero no se si esta bien. (soy medio bruto)
'abro la base de datos
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=odbcimagen;uid=root;pwd=;database=imagen;"
Set adoPrimaryRS = New Recordset
'
adoPrimaryRS.Open "select IDPersonas,docnro,imagen from personas WHERE docnro = '" & valorNroDocumento & "'", db, adOpenStatic, adLockOptimistic
'.....................................
'agregar el registro
txtFields(1).Text = text1.Text 'el Nro de Documento
Picture1.Picture = LoadPicture(App.Path & "\foto.jpg") 'imagen
adoPrimaryRS.Update
'-------------------------------------
MYSQL
imagen Blob
Es como lo tengo.
Mil gracias