Se il recordset e' vuoto, non potrai eseguire la

oRs_D_I("COD_AGENZIA")

Ti conviene fare una If prima per controllare il fatto che il recordset sia vuoto ed operare di conseguenza ...