Try
            Dim cmd As New OleDb.OleDbCommand("update  [emp] set time_cors=? ,name_tr=? ,tel_tr=? ,pl_cors=? ,num_total=? ,note_cors=?  where id_cors =? and  sub_cors =?  ", conn)
            With cmd.Parameters


                .Add("id_cors", Me.id_cors.Text)
                .Add("sub_cors", Me.sub_cors.Text)
                .Add("time_cors", Me.time_cors.Text)
                .Add("name_tr", Me.name_tr.Text)
                .Add("tel_tr", Me.tel_tr.Text)
                .Add("pl_cors", Me.pl_cors.Text)
                .Add("num_total", Me.num_total.Text)
                .Add("note_cors", Me.note_cors.Text)


            End With

            If conn.State = ConnectionState.Closed Then conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()
            MessageBox.Show("   ", " ", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Catch err As Exception
            MessageBox.Show(err.Message, " ", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2)
            If conn.State = ConnectionState.Open Then conn.Close()
        End Try