Listboxdan Verileri Textbox getirme

Merhaba bir önceki Listbox'daki seçim durumkonumdaki örneğin devamını birazcık değişiği listboxdan derslere tıkladığımda notlarını ortalamasını textbox gelmesini istiyorum yoksa else msgbox("Kayıt Bulunamadı")vb.durumlar

Bir kaç bir şeyler denedim bunlar;

Veri tabanına bagladım kod ile yolunu belirtim arama başlattım bunları listbox içine yazdım olmadı.

Bu

TextBox1.Text = ListBox1.Items.Add(0)

şekil bir şey denedim veri tabanındaki bilgileri vermedi

Yardımlarınızı bekliyorum teşekkürler

Programlama Dili:Visaul Basic

güncel

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.Items.Item(ListBox1.SelectedIndex)
    End Sub

olacak bro

yardımınız için teşekkür ederim fakat olmadı hangi derse tıkladıysam textboxlarda dersin ismi cıkıyor

sorun çok karışık olumş, not ortalamsı demişsin de bu not ortalaması nedir? veritabanı demişsin, nasıl işin içinden çıkacağımızı düşünüyorsun. tam olarak ne istiyorsun,elindekiler ne ve ne yapacaksın bunları belirtirsen yardımcı olmaya çalışırım

Konuya baktıgınız için teşekkür ederim ilk öncelikle sorunu acıklıyorum ;


Form resimdeki gibi oradaki amacı açıklıyorum : Ders listesinden ders seçiyorum not1,not2,not3 giriyorum bunları sonra hesapla dediğimde ortalamasını ve 5'lik sisteme göre karşılığı hesaplıyor kayıt butonuna bastığında veri tabanına kayıt ediyor kayıt listesin de data grid de gösteriyor benim istediğimde listboxdan dersi seçtiğimde orada textboxlara veri tabanındaki bilgilerin textboxlara gelmesi ders kayıtı yok ise kayıt bulunmadı cevabı vermesi

bak şimdi çok açık ve anlaşılır oldu. hiç bilmeyen biri ilk yazdığın mesajdan bunları çıkarabilir mi?

sorunun cevabına gelirsek. her tıklandığında veritabanından sorgu yapmasının mantığı yok. ilk açılışta tüm verileri alır. kendi içinde taramasını yapar. mesela datagridde attır verileri. ve adamın seçtiği dersi datagridde tarattır. eğer varsa ona göre ilgili kolonlardaki verileri textboxa getirirsin..

 Dim data As OleDbDataReader
        Dim yol As String = Application.StartupPath.ToString()
        Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & yol & "\ders.mdb")
        baglan.Open()
        komut.Connection = baglan
        komut.CommandType = CommandType.Text
        komut.CommandText = "select * from tablo where Dersadi='" & ListBox1.Text & "' "
        data = komut.ExecuteReader

        If data.Read = True Then
            TextBox1.Text = data.Item(0)
            TextBox2.Text = data.Item(1)
            TextBox3.Text = data.Item(2)
            TextBox4.Text = data.Item(3)
            TextBox5.Text = data.Item(4)

        Else
            MsgBox("kayıt yok")

        End If
        komut.Parameters.Clear()

BU şekil bir şey yaptım fakat yine calışmıyor çözüm yolunuz var mı ?
Listbox dan bir dersi seçtiğim de verdiği hata : Index was outside the bounds of the array.

orda neden if kulladın ki?
while data.read()
//kodların, gelen verilere bakmak için
messagebox.show(data.GetString(0)))
end while