那位高人能帮我看看以下删除记录代码为什么有时会提示错误,有时不会呢

SQL数据库,会提示键内信息不足,不能删除.有些就是能删除   
    AdoProduct.Open "select * from  Finished_Data WHERE SingleID='" & Txt_SingleID.Text & "' and type='" & Frm_Finished_Declarations.Caption & "'", adocn, adOpenStatic, adLockOptimistic
    If AdoProduct.EOF = False Then
        AdoProduct.MoveFirst
    End If
    Dim AdoInsertFinished_Data As ADODB.Recordset
    Do While Not AdoProduct.EOF
        If AdoProduct.EOF = False Then
            
            Set AdoInsertFinished_Data = New ADODB.Recordset
            If AdoInsertFinished_Data.State = 1 Then AdoInsertFinished_Data.Close
            AdoInsertFinished_Data.CursorLocation = adUseClient
            AdoInsertFinished_Data.Open "select * from Finished_Data_Delete WHERE SingleID='" & Txt_SingleID.Text & "' and type='" & Frm_Finished_Declarations.Caption & "'", adocn, adOpenStatic, adLockOptimistic
            AdoInsertFinished_Data.AddNew
            AdoInsertFinished_Data!SingleID = AdoProduct!SingleID
            AdoInsertFinished_Data!VatNO = AdoProduct!VatNO
            AdoInsertFinished_Data!FinishedID = AdoProduct!FinishedID
            AdoInsertFinished_Data!FinishedChinaName = AdoProduct!FinishedChinaName
            AdoInsertFinished_Data!Units = AdoProduct!Units
            AdoInsertFinished_Data!Quantity = AdoProduct!Quantity
            AdoInsertFinished_Data!NTW = AdoProduct!NTW
            AdoInsertFinished_Data!Price = AdoProduct!Price
            AdoInsertFinished_Data!SumPrice = AdoProduct!SumPrice
            AdoInsertFinished_Data![Date] = AdoProduct![Date]
            AdoInsertFinished_Data!CS = AdoProduct!CS
            AdoInsertFinished_Data!Type = AdoProduct!Type
            AdoInsertFinished_Data!UserID = frm_Main.StatusBar1.Panels(3).Text
            AdoInsertFinished_Data!DeleteData = Now()            AdoInsertFinished_Data.Update            AdoInsertFinished_Data.Close
            Set adoinsertfinished = Nothing
            
            AdoProduct.Delete        End If
        AdoProduct.MoveNext
    Loop
    AdoProduct.Close
    Set AdoProduct = Nothing
    
    MsgBox "删除成功", vbInformation, "提示"

解决方案 »

  1.   

    Finished_Data有没有key?
      
    *****************************************************************************
    欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
    http://feiyun0112.cnblogs.com/
      

  2.   

    因为Finished_Data表没有主关键字,所以我加了自动递增的标识,还是会提示,SQL数据库,会提示键内信息不足,不能删除.有些就是能删除  ,好像是记录不知道指定到那一条.