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) '的,但在我不,都一的,大家是??


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