Dim strConnectString as String

Dim objConn as ADODB.connection
set objConn = new ADODB.connection

strConnectString = "Provider=MSDAORA;Data Source=serverName;User ID=userName; Password=userPassword;"

objConn.connectstring = strConnectString

objConn.open