怎么将这个读取Excel的文件适用于AutoCAD2006以后版本？

starlet2003

将(strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" tbl ";Extended Properties=;Excel 8.0;HDR=No")改为
(strcat "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" tbl ";Extended Properties=;Excel 12.0;HDR=No")
（不改的话在AutoCAD2006中也不会出错）
已经可以在AuotCAD2012中读取表名，可是在后面的代码段：
(vlax-variant-value
                  (vlax-invoke-method
                   ADORecordset
                   "GetRows"
                   65535
                  ) ;_  vlax-invoke-method
）中陷入死循环。
求助帮忙解决。
这个函数在win7+AutoCAD2006+Excel2010下运行正常。
错误是出现在AutoCAD2012中