Script VB avec connexion Oracle ne fonctionne plus sous Windows 10

Bonjour,

J'ai un script VB, qui nécessite à un moment une connexion à une base oracle. On déclare la connexion de la sorte :

Code:

---

1 2 3 4 5 6 7

Dim sResponse,Shell Dim connectionString: connectionString = "DRIVER={Microsoft ODBC for Oracle};SERVER=" & sSchema & ";User Id=" & sUser & ";Password=" & sPwd & ";" Dim connection: Set connection = CreateObject("ADODB.Connection") Dim rows:Set rows = CreateObject("ADODB.Recordset")   Dim ShellO,fso,ScriptFinal Dim sSQL,sPrimary

---

Il fonctionne très bien sur un PC équipé de windows 7, mais sous windows 10 il génère une erreur sur le premier appel à la fonction "connection.Open connectionString" .

Pièce jointe 258098

Quelqu'un aurait-il une idée de ce qu'il faut modifier dans le script pour le rendre compatible avec Windows 10 ?

Merci d'avance pour votre aide.