[viv]

بالنسبة لكودك هنا  وبغض النظر عن ترتيبه ومكان واين باقي الكود الخاص بكائن الاتصال وغيرها يوجد فيه خطا هنا

كود :

cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)
                             valuse (@Label, @Qty, @Price)", con)

اما ان تجعل الجملة بسطر واحد كالتالي

كود :

cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price) valuse (@Label, @Qty, @Price)", con)

او تستخدم هذه الطريقة

كود :

cmd = New OleDbCommand("Insert Into TBL_PRODUCTS (Label, Qty, Price)" & _
                                   "valuse (@Label, @Qty, @Price)", con)

ايضا حاول تشطيب مدخلاتك ومخرجاتك ولا تتركها هكذا وانما كما بالمثال التالي

كود :

 cmd.Parameters.Add(New OleDbParameter("@Label", OleDbType.VarChar)).Value = TXT_NAME.Text.Trim
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = CType(TXT_QTY.Text, Integer)
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = CType(TXT_PRICE.Text, Double)