我在 VB.NET msaccess中插入我的listview项时遇到问题

问：

我在 vb.net 中插入我的列表视图项时遇到问题，它指出 INSERT into 语句是错误的。我该如何处理这个错误，什么是快速简便的修复？

 For Each item As ListViewItem In ListView1.Items

  Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ADMIN\source\repos\TrooTeaFinal\Database\Loginform.accdb")
  Dim cmd As New OleDbCommand("INSERT into Order([Customer Name], [Address], [Phone], [Drink], [Quantity], [Size], [Size Price], [Add Ons], [Total of Add Ons], [Discount], [Payment], [DeliveryFee], [AmountPayable], [Date Of Order] VALUES (@Customer Name,@Address,@Phone,@Drink,@Quantity@,@Size,@Size Price,@Add Ons,@Total of Add Ons,@Discount,@Payment,@DeliveryFee,@AmountPayable,@Date Of Order)", conn)

    cmd.Parameters.AddWithValue("@Customer Name", item.SubItems(0).Text)
    cmd.Parameters.AddWithValue("@Phone", item.SubItems(1).Text)
    cmd.Parameters.AddWithValue("@Address", item.SubItems(2).Text)
    cmd.Parameters.AddWithValue("@Drink", item.SubItems(3).Text)
    cmd.Parameters.AddWithValue("@Quantity", item.SubItems(4).Text)
    cmd.Parameters.AddWithValue("@Size", item.SubItems(5).Text)
    cmd.Parameters.AddWithValue("@Size Price", item.SubItems(6).Text)
    cmd.Parameters.AddWithValue("@Add Ons", item.SubItems(7).Text)
    cmd.Parameters.AddWithValue("@Total of Add Ons", item.SubItems(8).Text)
    cmd.Parameters.AddWithValue("@Discount", item.SubItems(9).Text)
    cmd.Parameters.AddWithValue("@Payment", item.SubItems(10).Text)
    cmd.Parameters.AddWithValue("@DeliveryFee", item.SubItems(11).Text)
    cmd.Parameters.AddWithValue("@AmountPayable", item.SubItems(12).Text)
    cmd.Parameters.AddWithValue("@Date Of Order", item.SubItems(13).Text)

    conn.Open()
    cmd.ExecuteNonQuery()
    conn.Close()

  Next  

  MessageBox.Show("Payment Successful!")