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