Connexion commune à plusieurs exe

Bonjour =E0 toutes et tous,

Une question de d=E9butant en ado et vb6

J'ai plusieurs petits EXE qui ont acc=E8s =E0 un classeur=20
EXCEL (2002). Chaque EXE comporte dans un module la=20
connexion suivante :

Set cn =3D New ADODB.Connection
cn.Open "Provider=3DMicrosoft.Jet.OLEDB.4.0;" & _
"Data Source=3D" & App.Path & "\Liste adh=E9rents=20
club.xls;" & _
"Extended Properties=3D""Excel 8.0;"""


comment faire pour que les diff=E9rents exe puissent au=20
lancement :
Reconna=EEtre si une connexion au classeur est d=E9j=E0 active=20
et sinon en cr=E9er une qui soit accessible aux autres exe?

Ma machine tourne sous win98.


Merci