MS Access：从 MySQL 下载表的宏按钮

Question

I'm trying to create a button that connects to a MySQL DB and downloads tables (when clicked). I created the following Macro :

Sub ADO_conn_Click()
Dim conn As New Connection
Dim rs As New Recordset

    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=test1.server.net:63306" & _
    "User Id=admin;Password=test"

    conn.Open (strcon)

    qry = "SELECT * FROM Employee"
    rs.Open qry, conn, adOpenKeyset

    rs.Close
    conn.Close
End Sub

Source : http://www.learnexcelmacro.com/wp/2011/12/how-to-connect-to-access-database-excel-macro/ - i also did the prerequisites. When I try to run the macro, I get the following error : "Compile Error - Invalid use of New Keyword" . Any Ideas on what I'm doing wrong? Thanks for your help.

Answer 1

in strcon between your second and third line there is no space. Is the word 'user' meant to be apart of the data source as in... Source=test1.server.net:63306User ?

I think you need a semicolon so try the following... I also think that you might have to declare strcon as a string variable.

dim strcon as string

strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=test1.server.net:63306;" & _
"User Id=admin;Password=test"

EDIT

I have noticed that qry is not declared as a string either, you may need to do the same with this as I suggested with strconn .

dim qry as string