Kaydet Buttonunuzun kodunu aşağıdaki ile değiştirip deneyin.

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