vba подключение к teradata без odbc

vba-Подключение к teradata без odbc

Sub test()
    Dim oConn As Object
    Set oConn = New ADODB.Connection

    oConn.Open "DRIVER={name_driver};DBCNAME=tddev;UID=;PWD=;QUIETMODE=YES;USEINTEGRATEDSECURITY=Y; AUTHENTICATION=; "

    If oConn.State = adStateOpen Then
        MsgBox "Connected! =)"
    Else
        MsgBox "fuck... =("
    End If
End Sub


DRIVER={name_driver};DBCNAME=name_server;UID=;PWD=;USEINTEGRATEDSECURITY=Y; AUTHENTICATION=;charset=UTF16;
--Подключение через драйвер к основному серверу --

DRIVER={name_driver};DBCNAME=name_server;UID=;PWD=;USEINTEGRATEDSECURITY=Y; AUTHENTICATION=;charset=UTF16;
--Подключение через драйвер к серверу разработки --

DRIVER={name_driver};DBCNAME=name_server;UID=;PWD=;USEINTEGRATEDSECURITY=Y; AUTHENTICATION=;charset=UTF16;
--Подключение через драйвер к серверу разработки --

DRIVER=SQL Server;SERVER=name_server;Trusted_Connection=Yes;
--Подключение через драйвер к sql серверу--

DRIVER=name_driver;SERVER=name_server;Trusted_Connection=Yes;
--Подключение через драйвер к sql серверу--