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

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

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

    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=server;" & _
        "DATABASE=db;" & _
        "UID=uid;" & _
        "PASSWORD=pass;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"

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