[abarrak]

أين الخطأ في مشروعي

كود :

Imports System.Data.OleDb
Public Class FRM_ADD_PRODUCTS
   Private Sub BTN_SAVE_Click(sender As Object, e As EventArgs) Handles BTN_SAVE.Click
       Try
           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
           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = TXT_QTY.Text
           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = TXT_PRICE.Text

           con.Open()
           cmd.ExecuteNonQuery()
           MsgBox("تمت الأضافة بنجاح", MsgBoxStyle.Information, "إضافة")
       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           con.Close()
       End Try
   End Sub
End Class