[hannileo]

السلام عليكم 
اخواني الكرام 


لما عندما اقوم بالضغط على زر حذف  لايقوم بشيئ الا باظهار رسالة انه تم حذف السجل 

ولم يتم حذف اي شيئ؟؟؟

كود :

If rs.State = 1 Then rs.Close

sql = "DELETE * FROM tblTransactions WHERE TransacCode = '" & ListView1.SelectedItem.Text & "'"
cn.Execute (sql)
If rs.State = 1 Then rs.Close




MsgBox "User Account was successfully modified!", vbInformation + vbOKOnly, ""



If rs.State = 1 Then rs.Close

sql = "SELECT * FROM tblTransactions"
rs.Open sql, cn

ListView1.ListItems.clear

With rs
Do Until rs.EOF

  Set li = ListView1.ListItems.Add(, , rs!ItemDesc)
               li.SubItems(1) = rs!ItemQTY
               li.SubItems(2) = Format(rs!UnitPrice, "###,###,###.00")
               li.SubItems(3) = Format(rs!Amount, "###,###,###.00")
               li.SubItems(4) = rs!TransacCust
               li.SubItems(5) = rs!TransacCont
               li.SubItems(6) = rs!DatePurchased
               li.SubItems(7) = rs!TransacCode
               li.SubItems(8) = rs!ItemProdCode
               li.SubItems(9) = rs!ItemCategory
               li.SubItems(10) = Format(rs!DatePurchased, Date)
               rs.MoveNext

Loop
End With

شكراً