Private Sub addrecord_Click()
'add data to table
CurrentDb.Execute "INSERT INTO FourniturenSample (Lila, Code, LilaP1, CodeP1, ColorP1, quantityP1, LilaP2, CodeP2, ColorP2, quantityP2, LilaP3, CodeP3, ColorP3, quantityP3, LilaP4, CodeP4, ColorP4, quantityP4, LilaP5, CodeP5, ColorP5...