运行程序时提示“系统不支持所选择的排序.”是什么原因？（有时发生，有时不发生）

With DataEnvironment1.rscmdImportVch
                    .AddNew
                    .Fields("FDate").Value = datFDate  '日期
                    .Fields("FPeriod").Value = intPeriod  '期间
                    .Fields("FGroup").Value = "记"    '凭证字
                    .Fields("FNum").Value = intNum   '凭证号
                    .Fields("FEntryID").Value = intEntry '分录号
                    .Fields("FExp").Value = rs.Fields("FItem").Value '注释
                    .Fields("FAcctID").Value = strDrAcctID '科目代码
                    .Fields("FClsName1").Value = "往来单位"  '核算项目类别名称
                    .Fields("FObjID1").Value = rs.Fields("FUnitID").Value  '往来单位代码
                    .Fields("FObjName1").Value = rs.Fields("FUnitName")  '往来单位名称
                    .Fields("FCyID").Value = "RMB"      '币别代码
                    .Fields("FExchRate").Value = 1      '汇率
                    .Fields("FDC").Value = "C"          '借贷方向
                    .Fields("FFCyAmt").Value = rs.Fields("FMoney").Value   '原币金额
                    .Fields("FDebit").Value = 0    '借方
                    .Fields("FCredit").Value = rs.Fields("FMoney").Value   '贷方
                    .Fields("FPrepare").Value = gstrLoginedUserName  '制单人
                    .Fields("FPosted").Value = False    '凭证是否已过帐
                    .Fields("FDeleted").Value = False   '凭证删除标志
                    .Fields("FSerialNo").Value = intNum
                    .Update
                End With
-----------
.Update在这里提示错误的。