update code

 Private Sub pupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pupdate.Click



        If cbprof.Text = "" Then
            MessageBox.Show("Please fill up the form", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        Else



            Dim ID As String
            Dim time As String
            Dim subjects As String
            Dim room_number As String
            Dim days As String
            Dim building_number As String

            Dim grade As String
            Dim section As String

            Dim semester As String
            Dim professor As String


            ID = txtid.Text.ToUpper.Trim
            time = cbtime.Text.ToUpper.Trim
            subjects = cbsubj.Text.ToUpper.Trim
            room_number = cbroom.Text.ToUpper.Trim
            days = cbday.Text.ToUpper.Trim
            building_number = cbbldg.Text.ToUpper.Trim

            grade = cbgrade.Text.ToUpper.Trim
            section = cbsec.Text.ToUpper.Trim

            semester = cbsem.Text.ToUpper.Trim
            professor = cbprof.Text.ToUpper.Trim()


            If isConflict(building_number, room_number, days, time, professor) Then
                MessageBox.Show("schedule conflict")
            Else



                connectMe()

                With myCmd
                    .Connection = Con
                    .CommandText = "UPDATE class_scheduler set time = '" & time & "' ,subjects = '" & subjects & "' , room_number= '" & room_number & "', days= '" & days & "', building_number = '" & building_number & "', grade ='" & grade & "' , section = '" & section & "', semester = '" & semester & "', professor = '" & professor & "' where ID = " & ID & ""
                    .ExecuteNonQuery()



                    txtid.Enabled = True
                    cbtime.Enabled = True
                    cbsubj.Enabled = True
                    cbroom.Enabled = True
                    cbday.Enabled = True
                    cbbldg.Enabled = True

                    cbgrade.Enabled = True
                    cbsec.Enabled = True

                    cbsem.Enabled = True

                    cbprof.Enabled = True



                    cbprof.Focus()





                End With

                txtid.Enabled = False
                cbtime.Enabled = True
                cbsubj.Enabled = True
                cbroom.Enabled = True
                cbday.Enabled = True
                cbbldg.Enabled = True

                cbgrade.Enabled = True
                cbsec.Enabled = True

                cbsem.Enabled = True

                cbprof.Enabled = True








                cbprof.Focus()





                MessageBox.Show(" class List Updated.")






                txtid.Enabled = False
                cbtime.Enabled = False
                cbsubj.Enabled = False
                cbroom.Enabled = False
                cbday.Enabled = False
                cbbldg.Enabled = False

                cbgrade.Enabled = False
                cbsec.Enabled = False

                cbsem.Enabled = False

                cbprof.Enabled = False

                refreshMe()

            End If

        End If