У меня есть лист в Excel 2010, который извлекает данные в QueryTables из базы данных Oracle, подключенной через ODBC DSN.

Мне нужно взять данные из электронной таблицы и использовать их для обновления таблицы в той же базе данных Oracle. Я не могу выполнить обновление из QueryTable, но это единственный способ подключения, который мне удалось получить для работы с ODBC.

Я попытался установить соединение ADODB, но я получаю

'Run-time error '-2147467259 (80004005'):

Automation error
Unspecified error

Вот код, который я использовал:

Sub Upload_Click()
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection

    With cn
        .Provider = "MSDASQL"
        .ConnectionString = "DSN=xcognosD;"
        .Open
    End With

    cn.Close
End Sub

Добавлено примечание: я на Windows 7 использую 64-битный драйвер odbc, подключаясь к базе данных Oracle 11.