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