[alsihran]

شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       If MsgBox("هل انت متأكد من حذف الحساب", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
           cmd = New SqlCommand("DELET FROM TblAccounts  where AccID=txtAccID.Text", conn)
           With cmd.Parameters

           End With
           If conn.State = ConnectionState.Open Then
               conn.Close()
           End If
           conn.Open()
           cmd.ExecuteNonQuery()

           conn.Close()
           frmAcc_Load(Nothing, Nothing)
       End If
   End Sub