campos blob en VB&

[elfantasma--]

Buenas,
           Estoy intentando subir y bajar archivos BLOB en un sistema ORACLE que funciona con VB6.

Estuve buscando métodos en Internet pero no lo logro hacer funcionar.

la función que cree usando de base lo leído es esta pero al llegar al rs.Open da error 80004005 no se admite el tipo de datos. Todos los ejemplos que leí hacen lo mismo con el RS

Si alguien me puede dar una / guía o consejo se lo agradeceré muchísimo.
saludos

Código [Seleccionar] Expandir


Private Sub Up_BLOB(campo_blob As String, sql As String, Path As String)
    Dim rs As ADODB.Recordset
    Dim stm As ADODB.Stream
   
   
    Set rs = New ADODB.Recordset
    rs.Open sql, CNN, adOpenKeyset, adLockOptimistic

    Set m_stream = New ADODB.Stream
    m_stream.type = adTypeBinary
    m_stream.Open
    m_stream.LoadFromFile Path
    rs.Fields(campo_blob).Value = m_stream.Read
    rs.Update

    rs.Close

End Sub