oracle vba 数组_excel2007用VBA连接oracle数据库失败，报错未找到提供程序，求大神解答...

代码如下：

Sub 选择项目()

Dim i As Integer, sht As Worksheet 'i为整数变量；sht 为excel工作表对象变量，指向某一工作表

Dim Cn As Object '定义数据链接对象 ，保存连接数据库信息

Dim rs As Object '定义记录集对象，保存数据表

Set Cn = CreateObject("ADODB.Connection") '创建数据链接对象

Set rs = CreateObject("ADODB.RecordSet") '创建记录集对象

'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表

Dim strCn As String, strSQL As String '字符串变量

strCn = "Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST =222.211.86.165 )(PORT=1521)))(CONNECT_DATA =(SERVICE_NAME = winner)));Persist Security Info=TRUE;User ID=XXH_TEST;Password=XXH;Unicode=True;pooling = true Connect providerN