Syntax error in INSERT INTO statement.

Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim sql As String
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\Thesis\Account.accdb")
 sql = "INSERT into tbl_Record(Name,Date,Toothno,Procedure,Amount_Charged,Amount_Paid,Balance,IDrecord) values (@Name, @Date, @Toothno, @Procedure, @Amount_Charged, @Amount_Paid, @Balance, @IDrecord)"
        con.Open()
        cmd = New OleDbCommand(sql, con)
        cmd.Parameters.AddWithValue("@Name", txtdummyconname.Text)
        cmd.Parameters.AddWithValue("@Date", dtpprocdate.Text)
        cmd.Parameters.AddWithValue("@Toothno", txttoothno.Text)
        cmd.Parameters.AddWithValue("@Procedure", txtprocedure.Text)
        cmd.Parameters.AddWithValue("@Amount_Charged", CInt(txtamountcharged.Text))
        cmd.Parameters.AddWithValue("@Amount_Paid", CInt(txtamountpaid.Text))
        cmd.Parameters.AddWithValue("@Balance", CInt(txtdummybal.Text))
        cmd.Parameters.AddWithValue("@IDrecord", CInt(txtlinkID.Text))
        cmd.ExecuteNonQuery()'Problem here<<<<<<'
        tablerecord()
        con.Close()
        MsgBox("Data has been save.")
<pre>