Dim cmd9 As New OleDb.OleDbCommand("Insert into Order(CusName,Phone,SellerUsername,InternalID,OuterID,AccessoryID,InternalCount,OuterCount,AccessoryCount,TotalPrice) values(@CusName,@Phone,@SellerUsername,@InternalID,@OuterID,@AccessoryID,@InternalCount,@OuterCount,@AccessoryCount,@TotalPrice)", con)
cmd9.Parameters.Clear()
cmd9.Parameters.AddWithValue("@CusName", CusName)
cmd9.Parameters.AddWithValue("@Phone", Phone)
cmd9.Parameters.AddWithValue("@SellerUsername", SellerUsername)
cmd9.Parameters.AddWithValue("@InternalID", InternalID)
cmd9.Parameters.AddWithValue("@OuterID", OuterCount)
cmd9.Parameters.AddWithValue("@AccessoryID", AccessoryID)
cmd9.Parameters.AddWithValue("@InternalCount", InternalCount)
cmd9.Parameters.AddWithValue("@OuterCount", OuterCount)
cmd9.Parameters.AddWithValue("@AccessoryCount", AccessoryCount)
cmd9.Parameters.AddWithValue("@TotalPrice", TotalPrice)
cmd9.ExecuteNonQuery()