VB6 Async connection locks up closing connection

I have a VB6 app using a SQL Server 2005 Express database as an event
logger. 
 The database is on the same PC as the app.  The app opens an Async 
connection to the database and does a SQL INSERT to write an event to the 
database 1 to 3 times a second.  On the ExecuteComplete event, it closes
the 
connection.

After a few days of continuous operation, the app freezes with 50% CPU 
usage, which is actually 100% of one core in a dual-core PC.  I attached 
WinDbg to the process, and it appears that the app is stuck in the 
ExecuteComplete event where it is calling the CloseConnection method of
the 
ADODB.Connection object.  Inside CloseConnection, it seems to be in a loop

calling MSDART!CReaderWRiterLock3::IsWriteLocked.

Any ideas on what is causing this or how to troubleshoot it further?

Thanks.