Dim cn As ADODB.Connection 'as you are typing adodb vb will automatically autohelp - if not then you don't have a reference to ado
    Dim rs As ADODB.RecordSet
    
    Set cn = New ADODB.Connection
    cn.Open "Promise", "name", "password"
    Set rs = New ADODB.RecordSet
        
    Set rs = New ADODB.RecordSet
    rs.Open "select * from v$version;", cn
    
    MsgBox (rs.Fields(0))
            
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

<%
    	DriverManager.registerDriver (new oracle.jdbc.driver.OracleDriver());
  		Connection con = DriverManager.getConnection("jdbc:oracle:thin:@xxx.xxx.xxx.xxx:yyyyy:zzzzz", "name", "password");
    %>