recordset1.Addnew recordset1("champs1").Value = "toto" recordset1("champs2").Value = "tata" recordset1("champs3").Value = "velo"