Dim ChaineConnexion As String, uid As String, pwd As String, base As String, server As String
uid = "UserID"
pwd = "Password"
base = "BASEORACLE.AAA.BBB"
server = "SERVEURORACLE.AAA.BBB:PORT"
ChaineConnexion = "Provider=MSDAORA.1;" & " User ID='" & uid & "';Password='" & pwd & "';" & " Data Source='" & base & "';server='" & server & "'"
cnx.Open ChaineConnexion