Problem with establish connection with MySQL DB by VBA

[Gadziu]

Hi,
I've done everything what is written in Internet, but still I get error. But from begining. I want to connect with MySQL DB from VBA level. I've installed ODBC connector and have made user DNS in it and have procced test, which complete successful. In Ms Visual Basic in Tools->References-> I checked Microsoft Activex Object 2.8.
My ODBC settings

By now my code looks like this

Dim oConn As ADODB.Connection

Private Sub ConnectDB()

    Set oConn = New ADODB.Connection

    oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
    "SERVER=sql.serwer;" & _
    "DATABASE=mydatabase;" & _
    "USER=muusername;" & _
    "PASSWORD=mypassword;" & _
    "Option=3"
End Sub

This is the error

Any ideas?

 

[Andrew Poulsom]

VBA code is written English not Polish.

 

[Gadziu]

This is string... For example I could write "localhost". I think it irrelevant what is there written in case of this problem

 

[Andrew Poulsom]

Have you tried recording a macro while performing your query manually? That should give you some starter VBA code.

 

[Gadziu]

How can I perform connection to DB manually?

 

[Andrew Poulsom]

Can't you use Data|From Other Sources or Data|Connections on the Ribbon?