Private Sub btnkaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkaydet.Click
        'KAYDET
        If Me.txtsoru.Text = "" Then
            MsgBox("Lütfen Soru Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
        Else

            Dim Sql As New String("INSERT INTO tblsoru (soruno,ders,soru,cevapa,cevapb,cevapc,cevapd,cevape,zorluk,dcevap) values ({0},'{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')")
            Sql = String.Format(sql, TextBox7.Text, cbdersad.Text, txtsoru.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, txtzorluk.Text, cbcevap.Text)
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='sorular.mdb'")
            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
            Dim sonuc As Integer
            baglanti.Open()
            sonuc = komutnesnesi.ExecuteNonQuery()
            If sonuc = 1 Then
                MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
            End If
            Listele("SELECT * FROM tblsoru'")
            baglanti.Close()
            'Temizle()

        End If

        Me.txtsoru.Text = ""
    End Sub

Dim Sql As New String("INSERT INTO tblsoru (soruno,ders,soru,cevapa,cevapb,cevapc,cevapd,cevape,zorluk,dcevap) values ({0},'{1}','{2}','{3}','{4}','{5}','{6}','(7)','(8)','(9)')")
            Sql = String.Format(sql, TextBox7.Text, cbdersad.Text, txtsoru.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, txtzorluk.Text, cbcevap.Text)