Private Sub CnxOracle()
'Ajouter référence Microsoft ActiveX pour pouvoir utiliser Objets ADO
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
Dim StConnectionString As String
'Définition de la chaîne de connexion
StConnectionString="Provider=OraOLEDB.Oracle;Data Source=XXXXXXXX.WORLD=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=YY.YY.YY.YY)(PORT=ZZZZ))(CONNECT_DATA=(SERVICE_NAME=XXXXXXXX)));User Id=MyId;Password=MyPwd;"
cnx.ConnectionString = StConnectionString
'Ouverture de la base de données
cnx.Open
'Fermeture de la base de données
cnx.Close
End Sub