Trapping CommitTrans - returns success even when failed!

Using VB6, SQL Server 2k, ADO 2.8, I am trying to implement an error handler
for ADO CommitTrans. I pause in the middle of transaction, pull the network
wire, then write more records and call CommitTrans. It completes without
error even though the data was not written. I have checked the Err
collection both in the main line and using withevents. They always indicate
success.. Am I missing something?
TIA!


.