求教VB6将ACCESS数据导入MYSQL的问题

问题遇到的现象和发生背景

想用VB写一个代码，将指定的ACCESS数据库里的A1数据表导入到MYSQL数据库中，该数据库中没有相对应的A1数据库，在网上找了半天，借鉴一个把EXCEL数据写入MYSQL的例子，但是不行，想请教一下这个代码该怎么写？说明一下，我是小白

用代码块功能插入代码，请勿粘贴截图
Dim strconn As String ' 定义Excel 连接字符串
Dim cn As ADODB.Connection ' 定义Excel 连接
Set cn = New ADODB.Connection
' 初始化commandialog1 的属性，选取Excel 文件，文
' 件名保存在CommanDialog1.filename 中备用

CommonDialog1.Filter = "ACCESS文件 (*..mdb)|*.mdb"
CommonDialog1.DialogTitle = " 请选择要导入的文件"
CommonDialog1.ShowOpen

' 设置连接SQL 数据库的连接字符串
strtemp = "DRIVER={MySQL ODBC 5.1 Driver};" & _
         "SERVER=" & IP & ";" & _
         "DATABASE=" & SERVERNAME & ";" & _
         "UID=" & SERVERuser & ";PWD=" & SERVERPass & ";" & _
         "OPTION=3;stmt=SET NAMES GB2312"
' 设置Excel 数据连接
strconn = " Provider =Microsoft.Jet.OLEDB.4.0;Data Source=" & CommonDialog1.FileName & " ; Persist Security Info=False"
cn.Open strconn

strSql = "insert into " & strtemp & ".hw_level1 select * from [A1]"
cn.Execute strSql, lngRecsAff, adExecuteNoRecords

MsgBox " 成功导入到SQL 数据库中！", vbExclamation + vbOKOnly
运行结果及报错内容

img

我的解答思路和尝试过的方法
我想要达到的结果

如果要将Access中的数据表导入到MySQL中，您可以按照以下步骤操作：

  1. 在Access中，打开要导出的数据表，然后点击“导出”按钮，在弹出的“导出”窗口中选择“ODBC 数据源”，然后点击“继续”按钮。

  2. 在“选择数据源”窗口中，选择“新建数据源”，然后点击“继续”按钮。

  3. 在“创建新的ODBC数据源”窗口中，选择“MySQL ODBC 5.3 Unicode Driver”，然后点击“完成”按钮。

  4. 在“配置ODBC数据源”窗口中，输入MySQL服务器的相关信息，包括服务器地址、用户名和密码，然后点击“确定”按钮。

  5. 在“导出”窗口中，选择前面创建的ODBC数据源，然后点击“继续”按钮。

将access中数据表导入到mysql中
https://blog.csdn.net/weixin_39901412/article/details/113906310