مشكلة في جملة الإستعلام

السلام عليكم و رحمة الله و بركاته

أخواني أرجو المساعدة في جملة الإستعلام هذه :

        Dim AddItem As New OleDbCommand("insert into [Accessories] (Code,Pro_Pic,Pro_Name,Pro_Model,boughtFrom,dateofbuy,Buy_Price,Quantity,Sell_Price,Notes) values (@Code,@Pro_Pic,@Pro_Name,@Pro_Model,@boughtFrom,@dateofbuy,@Buy_Price,@Quantity,@Sell_Price,@Notes", Con)

أين الخطأ ..

و شكراً مقدماً .