AddProduct, Datavase.vb methods added