   Dim a1, a2, a3, a4, a5, a6, a7, a8 As String

        If id_cors.Text = "" Or sub_cors.Text = "" Or time_cors.Text = "" Or name_tr.Text = "" Or tel_tr.Text = "" Or pl_cors.Text = "" Or num_total.Text = "" Or note_cors.Text = "" Then
            MsgBox("      ", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "")

            id_cors.Text() = ""
            sub_cors.Text = ""
            time_cors.Text = ""
            name_tr.Text = ""
            tel_tr.Text = ""
            pl_cors.Text = ""
            num_total.Text = ""
            note_cors.Text = ""
        Else
            a1 = id_cors.Text
            a2 = sub_cors.Text
            a3 = time_cors.Text
            a4 = name_tr.Text
            a5 = tel_tr.Text
            a6 = pl_cors.Text
            a7 = num_total.Text
            a8 = note_cors.Text

            Dim cmd As New OleDb.OleDbCommand("update  [emp] set time_cors='" & a3 & "',name_tr='" & a4 & "' ,tel_tr='" & a5 & "'  ,pl_cors='" & a6 & "'  ,num_total='" & a7 & "'  ,note_cors='" & a8 & "' where id_cors ='" & a1 & "' and sub_cors ='" & a2 & "' ", conn)
            With cmd.Parameters

                id_cors.Text() = ""
                sub_cors.Text = ""
                time_cors.Text = ""
                name_tr.Text = ""
                tel_tr.Text = ""
                pl_cors.Text = ""
                num_total.Text = ""
                note_cors.Text = ""
            End With
           
            MsgBox("     " & " ( " & a1 & " )     ", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "  ")

        End If