Dim tTbl As DataTable
                Dim row As DataRow
                Dim vRow As DataRowView
 
                tTbl = Me.DataSet11.Tables("Appointments")
                'MsgBox(tTbl.Rows.Count)
 
                Dim i As Integer
                For i = Schedule1.SelectedAppointments.Count - 1 To 0 Step -1
                    appointment = Schedule1.SelectedAppointments(i)
                    vRow = appointment.DataRow()
                    row = tTbl.Rows.Find(vRow("AppointmentID"))
                    row.Delete()
 
                    tTbl.AcceptChanges()
                    Schedule1.Appointments.Remove(appointment)
                Next