Listbox yenileme sorunu

Merhaba,
Listbox'a veri kaydettirebiliyorum ancak veriyi kaydedildiğini görmek için programı açıp kapamak gerekiyor.Kısacası listbox yenilenmiyor.Güncellemeleri programı kapatmadan nasıl görebilirim ?
Birde listbox da butona tıklayıp gösteriyorum.onu listboxdan direkt seçerek göstertebilirmiyim ?
Sorunun anlaşılması için ekte örnek gönderiyorum

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.

çok teşşekür ederim.diğer soru için yeni bir konu açayım mı burda cevaplarmısınız ?

Pardon onu atlamışım. Bunun içinde ;

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='data.mdb'")



        baglanti.Open()

        Dim komut As New OleDb.OleDbCommand("SELECT * FROM notlar Where ders = '" & ListBox1.SelectedItem & "'", baglanti)



        Dim getir As OleDb.OleDbDataReader

        getir = komut.ExecuteReader()

        getir.Read()

        TextBox4.Text = getir("not1")

        baglanti.Close()

    End Sub

eklemeniz yeterli olacaktır.

Tabi burada sadece TextBox4 için ayarlamışsınız, diğerlerinide aynı şakilde tanımlamalısınız.

gerçekten çok teşşekür ederim.bu site mükemmel bi site.sorularla ilgilendiğiniz için Allah razı olsun.

Teşekkürler. Sitemizin farkını hissetmiş olmanız mutluluk verici.