ExcelVBA连接MySQL数据库遇到的巨坑

　　笔者在工作中，经常使用ExcelVBA查询和汇总数据，非常方便，但最近遇到个麻烦，怎么也解决不了，今天整理出来还请高手帮忙指导。
　　一、原始数据
　　数据库名称：corn
　　表：成品出库
　　查询代码：SELECTdate，shtid，customer，product，小袋规格，大袋规格FROM成品出库
　　wherecustomer何现锋andproduct达育5158
　　查询结果如下图（经核对与原始数据一致）：
　　查询结果
　　二、ExcelVBA连接MySQL数据库
　　连接代码：OptionExplicit
　　SubGetDataFromMysql（）
　　DimconAsNewADODB。Connection
　　DimrsAsNewADODB。Recordset
　　DimsqlAsString，customername
　　DimshAsWorksheet
　　DimiAsInteger
　　SetshSheets（2）
　　sh。Range（A1：L500）。Clear
　　连接数据库
　　con。ConnectionStringdriver｛MySQLODBC8。0unicodeDriver｝；port3306；
　　con。Open
　　customernameSheets（2）。Range（M2）。Value
　　sqlselectdate，customer，address，product，小袋规格，大袋规格from成品出库wherecustomerlikecustomername
　　rs。Opensql，con，adOpenStatic，adLockOptimistic
　　设置表头
　　sh。Range（A1：E1）。ValueArray（ID，date，name，salary，other）
　　Fori0Tors。Fields。Count1
　　sh。Cells（1，i1）rs。Fields（i）。name
　　Nexti
　　输出结果
　　sh。Range（A2）。CopyFromRecordsetrs
　　关闭连接，释放内存
　　rs。Close
　　con。Close
　　SetrsNothing
　　SetconNothing
　　EndSub
　　运行代码后查询结果：
　　巨坑来了，大家注意看product列中品种名称达育5158，只显示：达育51。丢失了部分数据。
　　连接数据库查询结果
　　三、VBA连接EXCEL检查查询结果
　　代码：OptionExplicit
　　SubQueryFromExcel（）
　　DimConnAsObject，RstAsObject
　　DimstrConnAsString，strSQLAsString
　　DimiAsInteger，PathAsString
　　DimcustomernameAsString
　　SetConnCreateObject（ADODB。Connection）
　　SetRstCreateObject（ADODB。Recordset）
　　PathE：public历年报表玉米报表2022。7。13。xls
　　SelectCaseApplication。Version1
　　CaseIs11
　　strConnProviderMicrosoft。Jet。Oledb。4。0；ExtendedPropertiesexcel8。0；DatasourcePath
　　CaseIs12
　　strConnProviderMicrosoft。ACE。OLEDB。12。0；DataSourcePExtendedPropertiesExcel12。0；HDRYES；
　　EndSelect
　　设置SQL查询语句
　　customernameSheets（2）。Range（M2）。Value
　　strSQLSELECTdate，customer，address，product，小袋规格，大袋规格FROM〔成品出库〕wherecustomerlikecustomername
　　oraddresslikecustomernameorproductlikecustomernameordescriptionlikecustomername
　　Conn。OpenstrConn打开数据库链接
　　SetRstConn。Execute（strSQL）执行查询，并将结果输出到记录集对象
　　WithSheet2
　　。Range（A1：L1000）。Clear
　　Fori0ToRst。Fields。Count1填写标题
　　。Cells（1，i1）Rst。Fields（i）。name
　　Nexti
　　。Range（A2）。CopyFromRecordsetRst
　　EndWith
　　Rst。Close关闭数据库连接
　　Conn。Close
　　SetConnNothing
　　SetRstNothing
　　EndSub
　　如图所示结果显示正常：
　　VBA连接Excel查询结果
　　不知道为什么，非常无奈，请哪位知道的高手朋友帮忙看看问题出在哪里？