Sub ADO_Connect_without_library()
Dim cn As Object
Dim strSQL As String
Dim rs1 As Object
'Set cn = New ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
Set rs1 = CreateObject("ADODB.Recordset")
cn.Provider = "MSDAORA"
cn.ConnectionString = "User ID=USER;Password=PARROL6;Data Source=SOURCE"

On Error GoTo CnErrorHandler
cn.Open
'cn.CommandTimeout = 0

'-------------------ТУТ должен быть скрипт----------------------------'
Range(Cells(1, 4), Cells(1, 4)).Clear
strSQL = "select sysdate from dual"
rs1.Open strSQL, cn, 3, 3                                           'Получить результат запроса
Range(Cells(1, 4), Cells(1, 4)).CopyFromRecordset rs1.DataSource    'Вставить результат запроса в ячейку
'----------------------------------------------------------------------'
cn.Close
Set cn = Nothing
Exit Sub

CnErrorHandler:
For Each ADOErr In cn.Errors        'Отладчик ошибок подключения
    MsgBox "№ ошибки " & ADOErr.Number & Chr(10) & _
    "Описание: " & ADOErr.Description & Chr(10) & _
    "Источник: " & ADOErr.Source, vbCritical
    Debug.Print "№ ошибки " & ADOErr.Number & Chr(10) & _
    "Описание: " & ADOErr.Description & Chr(10) & _
    "Источник: " & ADOErr.Source
    cn.Close
Set cn = Nothing
Next ADOErr
End Sub