Vb.net Web sayfası yapıyorum yorum kısmı insert olmuyor yardı

[onurdikmen]

Merhabalar asp.net vb ile web sayfası yapıyorum
yorum ekle yaptım ama kullanıcı yorum ekleyemiyor
kod

PHP Kodu:

    Protected Sub Kayit_Yorum_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Kayit_Yorum.Click
        Dim tempSql As New StringBuilder

        tempSql.AppendLine("INSERT INTO makaleYorum ")
        tempSql.AppendLine("( ")
        tempSql.AppendLine("  makYor_Kullani_ID ,")
        tempSql.AppendLine("  makYor_Makale_ID  , ")
        tempSql.AppendLine("  makYor_Aciklama , ")
        tempSql.AppendLine(" )")
        tempSql.AppendLine("values")
        tempSql.AppendLine("(")
        tempSql.AppendLine("'" & makaleID & "',")
        tempSql.AppendLine("'" & Session("UserName") & "',")
        tempSql.AppendLine("'" & Me.Txt_MakaleYorum.Text & "'")
        tempSql.AppendLine(")")
        Try
            connectionVeriTabani()
            Dim myDataCommand As New OleDbCommand(tempSql.ToString, dbconn)

            Dim sonuc As Integer
            sonuc = myDataCommand.ExecuteNonQuery()

            closeVeriTabani()
            Me.Lbl_Error.ForeColor = Color.Blue
            Me.Lbl_Error.Text = "Yorumunuz eklenmiştir. Teşekkürler"
        Catch ex As Exception
            Me.Lbl_Error.ForeColor = Color.Red
            Me.Lbl_Error.Text = "Bir hata oluştu. Yorumunuz eklenmemiştir.."
        End Try
    End Sub
End Class 


Kayıt etmeden buraya atlıyor yardım edebilirmisiniz neden olabilir... tek burada insert sorunu var

PHP Kodu:

 Me.Lbl_Error.Text = "Bir hata oluştu. Yorumunuz eklenmemiştir.." 


[Revlis]

connection kodunda problem var gibi görünüyor.
Try , Catch bloğunu kaldır hata mesajını incele.

[onurdikmen]

hata mesajı vermiyor sadece insert etmiyor hep
Me.Lbl_Error.Text = "Bir hata oluştu. Yorumunuz eklenmemiştir.."
uyarıyı veriyor try değil

kaldırdı yine aynı

[onurdikmen]

kaldırınce bu hatayı veriyor

INSERT INTO deyiminde sözdizimi hatası.

Açıklama: Geçerli web isteği yürütülürken işlenmemiş özel durum oluştu. Lütfen hata ve kod içinde kaynaklandığı yer hakkında daha fazla bilgi almak için yığın izlemesini gözden geçirin.

Özel Durum Ayrıntıları: System.Data.OleDb.OleDbException: INSERT INTO deyiminde sözdizimi hatası.

Kaynak Hatası:

Satır 86: Dim sonuc As Integer
Satır 87:
Satır 88: sonuc = myDataCommand.ExecuteNonQuery()
Satır 89: closeVeriTabani()
Satır 90:

[Cekici]

Sorgu Cümlene Sadece Bunu Yazabilirmisin

dim x as string
Xas=Session("UserName")

SQL="INSERT INTO makaleYorum (makYor_Kullani_ID,makYor_Makale_ID,makYor_Aciklama) values ( '" & makaleID & "','" & Xas & "','" & Me.Txt_MakaleYorum.Text & "'"

Dim myDataCommand As New OleDbCommand(SQL.ToString, dbconn)

Olmaz ise database bi göz bence alanlarda bir sorun var mı?