在我们的VB6应用程序中，我们使用ADODB.Recordsets并利用MSDataShape的数据提供程序来使用SHAPE命令创建关系记录集。在最新的Windows10功能(1809)中，我们的代码因以下错误而中断:-"-2147217900LengthofNEWcolumnSiteCodecannotbezero"来自excel中的以下宏(其中MDAC是引用)PublicSubTestRun()DimrsStockCheckAsRecordsetOnErrorGoToErrorHandler'setupshaperecordsetSetrsStockCheck=NewRecords