Insertar y extraer imágenes de Access

Anubis5
26 de Marzo del 2004
Hola, tengo una gran pelea sobre la lectura/escritura de imágenes en Access (en un campo OLÉ :). Si a alguien se le atascaba ahi va la historia :

Sub InsertarBLOB_2(MIRegistro As ADODB.Recordset, _
MINombreCampo As String, MIRutaArchivo As String)

Dim TamTotal As Long
Dim TamRestante As Long
Dim NumeroChunks As Long
Dim MIBufer() As Byte
Dim Archivo As Integer
Dim i As Long

Const TamBufer = 2048

'On Local Error GoTo ControlError

Archivo = FreeFile
Open MIRutaArchivo For Binary Access Read As Archivo

TamTotal = LOF(Archivo)
NumeroChunks = TamTotal TamBufer
TamRestante = TamTotal Mod TamBufer

ReDim MIBufer(TamRestante)
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer

ReDim MIBufer(TamBufer)
For i = 1 To NumeroChunks
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer
Next i

Close Archivo
MIRegistro.Update
Exit Sub

ControlError:
Close Archivo

End Sub

La cosa es que esto furula. Sobre cómo hacerlo al revés hay mucha información por ahí, y si no me manden un email. Pero dos problemas, uno que con imágenes gif no me lo hace (y por qué carajo?) pero lo que me tiene harto es que con las bmp lo hace bien pero la imagen pierde calidad.
Si a alguien se le ocurre algo, pos que me vaya avisando, y gracias de antemano.

Un saludo