SoloCodigo

Hola,
Tengo el siguiente problema.
Mediante las funciones que a continuación describo, almaceno y leo desde BBDD archivos (sobre un campo image de SQLServer)
Siempre ha funcionado bien, pero ahora me he dado cuenta que con archivos de Office2007 (docx, xlsx, etc) da problemas de apertura.
He descubierto que en BBDD se están almacenando bytes de mas.
¿Alguien ha tenido este problema y lo ha podido solucionar?
Dejo aquí las funciones para su revisión:

Public Function GuardarBinario(ByRef rs As Recordset, Campo As String, archivo As String, Optional BorraArchivo As Boolean) As Integer
    ' Función que Almacena en Base de datos un archivo binario
    ' Recibe como parámetros una referencia a un recorset, el campo dónde se almacena
    ' el archivo que hay que almacenar y si se desea borrar el fichero físico una vez almacenado
    ' La función devuelve 0 si almacenó correctamente el archivo o 1 si hubo un error
   
    Dim LongitudFichero, i As Long
    Dim Porcion As Long
    Dim Bloque
    Dim varChunk() As Byte
   
    lnNumero = FreeFile
    Open archivo For Binary Access Read As lnNumero
                                        ' El fichero hay que partirlo en trozos....
    LongitudFichero = LOF(lnNumero)                  ' Longitud de los datos en el archivo
    nconst = 102400
   
    If LongitudFichero > 0 Then
        Bloque = LongitudFichero  nconst
        Porcion = LongitudFichero Mod nconst
        rs(Campo).AppendChunk Null      ' limpiamos el campo por si acaso...
       
        ReDim varChunk(Porcion)
        Get lnNumero, , varChunk()      ' Tomo un trozo del tamaño necesario
        rs(Campo).AppendChunk varChunk()
        ReDim varChunk(nconst)
        For i = 1 To Bloque             ' y ahora los trozos que quedan
            Get lnNumero, , varChunk()
            rs(Campo).AppendChunk varChunk()
        Next i
        GuardarBinario = 0
    Else
        GuardarBinario = 1
    End If
    Close lnNumero
    If BorraArchivo = True Then
        Kill archivo
    End If
End Function

Public Sub LeerBinario(ByRef rs As Recordset, Campo As String, archivo As String)
    ' Procedimiento que guarda en disco un archivo binario leido de Base de datos

    Dim fl, i As Long
    Dim fragment As Long
    Dim Chunks
    Dim varChunk() As Byte
   
    lnFichero = FreeFile
    fl = rs(Campo).ActualSize
    If fl > 0 Then
        Open Environ("TEMP") + "" + archivo For Binary Access Write As lnFichero
        Chunks = fl  102400
        fragment = fl Mod 102400
        ReDim varChunk(fragment)
        varChunk() = rs(Campo).GetChunk(fragment)
        Put lnFichero, , varChunk()
        For i = 1 To Chunks
            ReDim varChunk(102400)
            varChunk() = rs(Campo).GetChunk(102400)
            Put lnFichero, , varChunk()
        Next i
        Close lnFichero
    End If
End Sub

¿Que versión de CR estais usando para VB6?
¿Habeis trabajado con CR+VB6 sobre base de datos mysql? Yo con la version CR 8.2 he tenido problemas y tengo que meter un access entre el mysql y el CR para poder acceder a los datos.