vb 多步ole db操作产生错误 急~~~~~~~~~~~~~~~~~~

VB 连数据库
代码如下：
Server_Driver = "Provider=msdaora.1;Password=" & Trim(SERVER_TYPE2.PWD) & _
        ";PeRS2ist Security Info=True;" & _
        "User ID=" & Trim(SERVER_TYPE2.USEID) & _
        ";Initial Catalog=" & Trim(SERVER_TYPE2.SERVERNAME) & _
        ";Data Source=" & Trim(SERVER_TYPE2.IP)
        Set RS2 = New ADODB.Connection
        RS2.ConnectionString = Server_Driver
        RS2.Open

改为provider=SQLOLEDB.1;


在SQL SERVER 下运行没问题 
改到ORACLE 上运行 就出现 80040e21错误

请问各位大侠帮忙解决下。
谢谢~~~

另需从oracle 数据库导出数据到EXCEL表中，哪位大侠有合适的代码发上来个~

补充：VB ,  基础类