Dim d As Integer
If MsgBox("¿Está seguro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Dim orow As DataRow
Dim oTable As New Data.DataTable()
d = ComboBox1.SelectedIndex
orow = DataSet11.Tables("jugadores").Rows(d)
orow.Delete()
oTable = DataSet11.Tables("jugadores").GetChanges(DataRowState.Deleted)
DataAdapter1.Update(oTable)