delete

 connect = New OdbcConnection("driver=MySQL ODBC 5.2 ANSI Driver;localhost;port=3306;uid='root';pwd=;database=enrollment")
        connect.Open()

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

            Dim teacherID As String
            Dim first_name As String
            Dim last_name As String
            Dim middle_name As String
            Dim adress As String
            Dim phone_number As String
            Dim email_add As String


            teacherID = txtID.Text
            first_name = txtfirstname.Text.ToUpper.Trim
            last_name = txtlastname.Text.ToUpper.Trim
            middle_name = txtmiddlename.Text.ToUpper.Trim
            adress = txtadd.Text.ToUpper.Trim
            phone_number = txtcp.Text.ToUpper.Trim()
            email_add = txtemail.Text.ToUpper.Trim



            connectMe()

            With myCmd
                .Connection = Con
                .CommandText = " delete from  teachers  where teacherID = '" & teacherID & "'"
                .ExecuteNonQuery()


                txtfirstname.Enabled = True
                txtlastname.Enabled = True
                txtmiddlename.Enabled = True
                txtadd.Enabled = True
                txtcp.Enabled = True
                txtemail.Enabled = True

                txtfirstname.Focus()

            End With

            MessageBox.Show(" Subject deleted.")



            txtfirstname.Clear()
            txtlastname.Clear()
            txtmiddlename.Clear()
            txtadd.Clear()
            txtcp.Clear()
            txtemail.Clear()


            txtfirstname.Focus()


            refreshMe()

        End If