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.