RS.clone問題,该如何处理

RS.clone問題
Dim   Sign   As   Boolean,   Times   As   Integer
                        Set   RsClone   =   New   ADODB.Recordset
                        Set   RsClone   =   Rs21.Clone
                        If   RsClone.RecordCount   >   0   Then   RsClone.MoveFirst
'                         On   Error   Resume   Next
                        Do   While   Not   RsClone.EOF
                                If   Trim(RsClone!AddAmt   &   " ")   =   " "   And   Trim(RsClone!SUBAMT   &   " ")   =   " "   Then
                                        RsClone.Delete   adAffectCurrent
                                End   If
                                RsClone.MoveNext
                        Loop
這段代碼生成exe在客戶那運行時出現runtime   error   '-   2147217885(8004e23) '這樣的錯誤,但在我這不會,婁據庫都一樣的,大家認為是??


[解决办法]
光有错误编号，没有错误信息。