here is my code
Code:
  
    On Error GoTo ErrDelete
        
        Dim sqlStr As String
            If MsgBox(" ", vbQuestion + vbYesNo, " Deleted ") = vbYes Then
                sqlStr = " Delete STR_ITEMNO,STR_FLOWER,STR_QTY from STRUCTURE "
            
            Else
                Exit Sub
            End If
            Conn.BeginTrans
            Conn.Execute sqlStr
            Conn.CommitTrans
            
            MsgBox ""
ExitError:
    Exit Sub
ErrDelete:
    Conn.RollbackTrans
    MsgBox "Error:" & Err.Description, vbCritical
    Resume ExitError
    
    Unload Me
    Form1.Show
but it will delete my all data in table,
if i choose delete from strucuture where str_itemno...
it will delete my all foreign-key,
i want to delete one row at a time then my foreign-key will allow to be redundant...


plse help me..