Ayuda con Macro que guarda imagenes en tabla de Oracle

Hola les pido su ayuda con lo siguiente... tengo un formulario en Excel que me ayuda a actualizar un catalogo de fotos Web estas fotos están en una tabla de una base de datos Oracle, la macro que utilizo estaba funcionando bien hacia el cambio sin problemas solo que debido a otros problemas tuve que reinstalar el SO en mi equipo y al querer usar de nuevo esta macro ya no funciona, si actualiza la información pero no termina se queda congelado Excel.

Esta es la Macro que utilizo:

Sub SubirFoto()
Dim sql As String
Dim m_stream    As Object
Dim cn As Object
sql = "select foto from prueba_fotos where num_empleado=44163"
Set cn = CreateObject("ADODB.Connection")
    cn.ConnectionString = "DSN=FOTOS;UID=USUARIO;PWD=1234;DBQ=FOTOS;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;"
        Dim rst As Object
        On Error Resume Next
        cn.Open
            Set rst = CreateObject("ADODB.Recordset")
                rst.Open sql, cn, adOpenKeyset, adLockOptimistic
                Set m_stream = CreateObject("ADODB.Stream")
                    m_stream.Type = adTypeBinary
                    m_stream.Open
                    m_stream.LoadFromFile "D:\archivo_digital.jpg"
                    rst.Fields(0).Value = m_stream.Read
                    rst.Update
                Set m_stream = Nothing
            rst.Close
        cn.Close '*******AQUI ES DONDE SE QUEDA CONGELADO***********
Set cn = Nothing
Set rst = Nothing
Set m_stream = Nothing
End Sub