[Null]

كود :

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.AddWithValue("@Label", txtname.Text.Trim)

           cmd.Parameters.AddWithValue("@Qty", Val(txtqty.Text))

           cmd.Parameters.AddWithValue("@Price", Val(txtprice.Text))

           If con.State <> ConnectionState.Open Then con.Open()

           cmd.ExecuteNonQuery()


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