Ошибка возникает на выделенной строке.
Run-time errror '429'
ActiveX component can't create object

Библиотеки MS ActiveX Recordset , MS ActiveX data object , MS OLE db PROVIDER использую.
Помогите разобраться в чем дело.


Public objSession As Object

Public objDataBase As Object

Sub ConnectToOracle()
Set objSession = CreateObject("OracleInProcServer.XOraSession")
Set objDataBase = objSession.OpenDatabase("ServName", "Login/pass", 0&)
Dim strSQL As String
'strSQL = "Insert into test(d1,d2) values(1,2)"
objDataBase.ExecuteSQL (strSQL)
End Sub