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

 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