Laufzeitfehler bei ODBC Zugriff auf Oracle Datenbank mit VBA

Hallo zusammen,

ich das Problem, dass ich von VBA einen Laufzeitfehler gemeldet bekomme.

Folgende Fehlermeldung:

"Laufzeitfehler: '-2147217865 (80040e37)': Automatisierungsfehler"


Das Ganze passiert beim Aufrufen eines SQL Statements. Folgenden Code verwende ich:

Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset


db_name = "READ_ONLY" '
UserName = "USER"
Password = "PW"

Statistikwerte_Monat = "E.Monate_" & IntMonat + 12

' Alle Monatswerte Umsatz, Absatz (UAK, ABAK), Sachbearbeiter, USCHL

StrSelect = _
"Select " _
& "E.Datenfelder_1 ArtNr, E.Datenfelder_2 KdNr, A.Sachbearbeiter SB, A.Uschl US, E.Satzart SA, A.Sachbereich SachB, " _
& Statistikwerte_Monat & " AktMon " _
& "from Infor.relEs E left join Infor.relAc A on E.Datenfelder_1 = A.MNr " _
& "where E.Satzart in ('UAK', 'ABAK')" _
& "and " & Statistikwerte_Monat & " > 0"

cnOra.Open "DSN=" + db_name + ";UID=" + UserName + ";PWD=" + Password + ";"
rsOra.CursorLocation = adUseServer

rsOra.Open StrSelect, cnOra, adOpenForwardOnly

Die Fehlermeldung erscheint beim Ausführen der letzten Zeile.

Weitere Info: der Benutzer "USER" ist nicht Inhaber des Schemas. Benutze ich den User des Schemas, dann wird der Code problemlos abgearbeitet.

Kann das vielleicht an dem Treiber liegen? Für den "USER" nutze ich den MS ODBC Treiber für Oracle.

Vielen Dank für Eure Hilfe!

Grüße,
firsty

SELECT * FROM v$version	WHERE banner LIKE '%Oracle%'  

Connected to:
Oracle Database 11i Internal Edition Release 11.2.0.0.9 - Beta
With the Partitioning, OLAP and Data Mining options

SQL> select * from v$version where banner like '%Ora%';  

BANNER
----------------------------------------------------------------
Oracle Database 11i Internal Edition Release 11.2.0.0.9 - Beta

'....  
Const adUseClient = 3

'---- LockTypeEnum Values ----  
Const adLockReadOnly = 1 ' Gilt später für den RS -->RS.LockType = adLockReadOnly   
'...  
Const adModeRead = 1
'....  
'########rsOra.CursorLocation = adUseServer  
cnOra.CursorLocation = adUseClient
cnOra.Mode = adModeRead 

rsOra.CursorLocation = adUseClient
rsOra.LockType = adLockReadOnly
rsOra.Open StrSelect, cnOra, adOpenForwardOnly
...