mysql - MS Access:宏按钮，用于从MySQL下载表

我正在尝试创建一个连接到MySQL数据库并下载表（单击时）的按钮。我创建了以下宏：

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

资料来源：http://www.learnexcelmacro.com/wp/2011/12/how-to-connect-to-access-database-excel-macro/-我也做了前提条件。当我尝试运行宏时，出现以下错误：“ Compile Error-Invalid use of New Keyword”。关于我在做什么错的任何想法吗？谢谢你的帮助。

最佳答案

在第二行和第三行之间的strcon中没有空格。 “用户”一词是否意味着与... Source=test1.server.net:63306User中的数据源分开？

我认为您需要分号，因此请尝试以下操作...
我还认为您可能必须将strcon声明为字符串变量。

dim strcon as string

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

  编辑


我注意到qry也未声明为字符串，您可能需要像我对strconn所建议的那样执行此操作。

dim qry as string