Bunun için kayıt işlemi sonrasında öncelikle ListBox'ı boşaltıyoruz ve tekrar verileri çağırıyoruz. Uygulamadaki Ders Ekle Button'un kodunu;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then

            MessageBox.Show("Boş bıraktığınız alanlar var!", "Boş alan var!", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            Exit Sub

        End If

        Baglanti()

        Dim Kayit = Bag.Execute("Select * From dersler Where ders = '" & TextBox1.Text & "'")

        Dim Kayit2 = Bag.Execute("Select * From notlar Where ders = '" & TextBox1.Text & "'")

        If Button1.Text = "Ders Ekle" Then



            If Kayit.EOF Or Kayit2.EOF Then

                Bag.Execute("INSERT INTO dersler (ders) VALUES ('" & TextBox1.Text & "')")

                Bag.Execute("INSERT INTO notlar (ders,not1,not2,not3,not4,soz1,soz2,soz3,soz4) VALUES ('" & TextBox1.Text & "', '', '', '', '', '', '', '', '')")

                MessageBox.Show("Kaydınız başarıyla eklenmiştir.", "İşlem Başarılı.", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TextBox1.Text = ""

                TextBox2.Text = ""

            Else

                MessageBox.Show("' " & TextBox1.Text & " ' Bu kayıt mevcut.Lütfen başka bir kayıt seçin", "Kayıt mevcut", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            End If

        End If

        ListBox1.Items.Clear()'Listview'i temizle

        doldurs()'Tekrar verileri getir.

    End Sub

şeklinde değiştiriniz.