VBA ADO插入数据以从MySQL表访问表

我想通过Access VBA ADO将MySQL服务器中的信息添加到Access表中

Dim cnn As ADODB.Connection

cnn.Open "WP1"

CurrentDb.Execute ("delete * from wp_postmeta1;")

cnn.Execute ("INSERT INTO wp_postmeta1 ( meta_id, post_id, meta_key, meta_value ) in '" & CurrentProject.Connection & "' " & _
             "SELECT wp_postmeta.meta_id, wp_postmeta.post_id, wp_postmeta.meta_key, wp_postmeta.meta_value " & _
             "FROM wp_postmeta;")

---

我通过添加连接字符串解决了此问题：

Dim cnn As New ADODB.Connection    
cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 ANSI Driver};Server=localhost;port=3306;Database=dbo;User=root;pwd=XXXX;Option=3"
cnn.Open

Do While cnn.State <> 1
   DoEvents
   If cnn.State = 0 Then Exit Sub
Loop

将cnn设置为新的ADODB.连接
cnn.ConnectionString=“DRIVER={MySQL ODBC 8.0 ANSI DRIVER}；Server=localhost；port=3306；Database=dbo；User=root；pwd=XXXX；Option=3”
有线电视新闻网，开门
当美国有线电视新闻网（cnn）的时候去做
多芬特
如果cnn.State=0，则退出Sub
环路

而代码不起作用，如何修复？代码在连接MySQL的Access中？什么是WP1？查看将两个表都附加到访问前端，然后将它们都当作访问表来对待，并使用好的ol'DAO，或者只是一个简单的查询。DAO对MySQL服务器超时有疑问，而ado提供了更频繁连接的可能性，如何从ado连接到my base这是每行（）的可能解决方案，速度很慢，如何插入所有表？