ADO collection errors

For example, my procedure is as follows:

CREATE PROCEDURE dbo.mystoredprocedure
WITH ENCRYPTION
AS
  sentences...

  IF <condition>
       RAISERROR (message, 16, 1)

And the ADO code is as follows:

oConnection = createobject("adodb.connection")
oConnection.open(cStringConnection)
oConnection.isolationlevel = ADXACTSERIALIZABLE

oConnection.BeginTrans

cStoreProc = "mystoredprocedure"
oConnection.execute(cStoreProc)

if alen(oConnection.Errors) > 0
   for each oError in oConnection.Errors
       ...Error handle
   endfor
   oConnection.RollbackTrans
else
   oConnection.CommitTrans
endif