完全相同的代码，在VB与VBA不同的表现

个人经验分享下
一、完全相同的代码，在VB与VBA不同的表现
后台数据库是MySQL, 通过ODBC连接rs.open"season,key_id,classified,accessory,itemspec,itemcode,itemprocessname,itemname,itemunit,itemunitprice,itemunitqnty,itemtotalqnty,itemtotalcost,pmclassified,ctr,patt,dcr,qnty from worknoticeitem_02 where season='" & strSeason & "' and Key_id='" & strKeyId & "' order by season,key_id,mid;", mysqlconn, adOpenKeyset, adLockOptimistic
在VB6中之前正常，突然就读不到数据了
然后同样代码在Access中非常正常
跟踪到原因原来是 为 -1 （VB6中）
而在VBA中则正常取到记录数
二、解决办法 将代码作如下修改后正常
rs.open"select season,key_id,classified,accessory,itemspec,itemcode,itemprocessname,itemname,itemunit,itemunitprice,itemunitqnty,itemtotalqnty,itemtotalcost,pmclassified,ctr,patt,dcr,qnty from worknoticeitem_02 where season='" & strSeason & "' and Key_id='" & strKeyId & "' order by season,key_id,mid;", mysqlconn, adOpenStatic, adLockReadOnly
则一切正常