withevents and array of connections

Hello !!

How do I make an array of ADO connections using WithEvents??

I can:
Dim myConn(9) as ADODB.Connection

For n = 0 to 9
set myConn(n) = New ADODB.Connection
Next

but I will use a event like :

Private Sub myConn_ExecuteComplete(ByVal RecordsAffected As Long, ByV.... etc....

It would be nice if it could be something like :
Dim WithEvents myConn(9) As ADODB.Connection, and being able to catch all the executecomplete-events :D

but it cant :(


Can someone help me with this??


Kind regardz
Janus

I guess noone can answer my question??