Syntaxfehler in der INSERT INTO-Anweisung. in VB.net 2010

Ich habe dieses problem seit einer Woche und Suche jedes existierende forum für eine Antwort vielleicht zu dieser Zeit, dass ich mein eigenes problem.

Mein problem war in speichern von Daten in einer Datenbank. Ich habe ein datagrid, das war zu binden, aber angezeigt wird nichts. Ich bin mit .mdb-access-Datenbank. der mdb-Tabelle name war tblinformation.

Es scheint, dass mein problem war in der INSERT INTO-Anweisung, denn es war eine msgbox erscheint, dass jedes mal wenn ich versuche zu speichern, Daten aus einer textbox. und zu guter Letzt, ich bin neu vb.net >..<

btw hier ist mein code:

---

Imports System.Data.OleDb

Public Class frmbookinfo
Dim cnn As New OleDb.OleDbConnection

Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
    Try
        cnn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=D:\AmosBooks_System\AmosBooks_System\database.mdb")
        Dim command As String
        command = "INSERT INTO tblinformation(title, author, isbn, category, edition, pages, language, yearofpublication, bcode, price) VALUES (@title, @author, @isbn, @category, @edition, @pages, @language, @yearofpublication, @bcode, @price)"
        cnn.Open()
        Dim cmd As OleDbCommand
        cmd = New OleDbCommand(command, cnn)
        cmd.Parameters.AddWithValue("@title", txttitle.Text)
        cmd.Parameters.AddWithValue("@author", txtauthor.Text)
        cmd.Parameters.AddWithValue("@isbn", txtisbn.Text)
        cmd.Parameters.AddWithValue("@category", txtcategory.Text)
        cmd.Parameters.AddWithValue("@edition", txtedition.Text)
        cmd.Parameters.AddWithValue("@pages", txtpages.Text)
        cmd.Parameters.AddWithValue("@language", cmblanguage.Text)
        cmd.Parameters.AddWithValue("@yearofpublication", dtyearpub.Text)
        cmd.Parameters.AddWithValue("@bcode", txtbcode.Text)
        cmd.Parameters.AddWithValue("@price", txtprice.Text)


        cmd.ExecuteNonQuery()
    Catch exceptionObject As Exception
        MessageBox.Show(exceptionObject.Message)
    Finally
        cnn.Close()
    End Try
End Sub

InformationsquelleAutor Reign De Leon | 2013-04-12