Per quanto il ritaglio dell'immagine non so aiutarti.
Per inserire la nuova img in tabella, prova a usare questa funzione:
Private Function InsertBlob(ByVal id As Double, ByVal File As String) As Boolean
Dim ssql As String
Dim rs As ADODB.Recordset
Dim mStream As ADODB.Stream
'
InsertBlob= True
'
On Error GoTo ErrorHandler
Set rs = New ADODB.Recordset
rs.Open "Select * from Tabella", connessione, adOpenKeyset, adLockOptimistic
'
Set mStream = New ADODB.Stream
'
mStream.Type = adTypeBinary
'
mStream.Open
'
mStream.LoadFromFile File
'
With rs
.AddNew
.Fields("id").Value = id
.Fields("IMAGE").Value = mStream.Read
.Update
End With
mStream.Close
Set mStream = Nothing
rs.Close
Set rs = Nothing
Screen.MousePointer = vbDefault
Exit Function
ErrorHandler:
Screen.MousePointer = vbDefault
InsertBlob = False
Select Case Err.Number
Case 3002
clsLog.SegnalaLog Space(3) & "Errore in fase di lettura del file (ADO STREAM)" & Err.Number & " - " & Err.Description
Case Else
clsLog.SegnalaLog Space(3) & "Errore in fase di Inserimento nella tabella" & Err.Number & " - " & Err.Description
End Select
''' Resume
End Function
Spero vada bene