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