[mostafa hasanein]

عند اتمام ال run واضافة منتج جديد تظهر لى هذة الرسالة


data type mismatch in criteria expression

استخدم فيجوال بيسك 2012 واكسس 2010

اريد حل لهذة المشكلة بالله عليكم ودة الكود 

كود :

Public Class FRM_ADD_PRODUCTS

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click


       Try

           cmd = New OleDbCommand("INSERT INTO TBL_PRODUCTS (Label, Qty, Price) values (@Label, @Qty, @Price)", con)

           cmd.Parameters.Add(New OleDbParameter("@Label", OleDbType.VarChar)).Value = txtname.Text

           cmd.Parameters.Add(New OleDbParameter("@Qty", OleDbType.Integer)).Value = txtqty.Text

           cmd.Parameters.Add(New OleDbParameter("@Price", OleDbType.Currency)).Value = txtprice.Text

           con.Open()

           cmd.ExecuteNonQuery()


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