Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Set mstream = New ADODB.Stream
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM Tabla WHERE Codigo=2", cn, adOpenKeyset, , adCmdText
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "RutaDelArchivo"
rs.Fields("logo").Value = mstream.Read
rs.Update
rs.Close
mstream.Close
Set rs = Nothing
Set mstream = Nothing