ลบกวนช่วยดู insert [vb] หลังจากที่ไปแก้แล้วแต่ไม่สำเร็จข้อความที่เกิดขึ้น Must declare the scalar variable "@id".

Dim constr As String = "provider=sqloledb;"
        constr &= "data source=ART-PC;"
        constr &= "initial catalog=book;"
        constr &= "integrated security=sspi"

        Dim conn As New OleDbConnection(constr)
        conn.Open()
        Dim ra As String
        Dim sql As String
        sql = "insert into book_properties(book_id,book_name)values(@id,@name)"
        Dim cmd As New OleDbCommand(sql, conn)
        With cmd
            .Parameters.AddWithValue("@id", CInt(txt_id.Text))
            .Parameters.AddWithValue("@name", txt_name.Text)
        End With

        ra = cmd.ExecuteNonQuery()
        MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว " & ra)
        conn.Close()

sql = "insert into [book_properties] ([book_id], [book_name]) values (@id, @name)"

sql = "insert into book_properties(book_id,book_name)values(123,'123')"

.Parameters.AddWithValue("@id", CInt(txt_id.Text))  

dim idCapture As integer =  0 
int32.TryParse( txt_id.Text ,idCapture )
.Parameters.AddWithValue("@id", idCapture )