Grazie ho risolto!!

:gren:

Data1.Recordset.AddNew
Data1.Recordset("Nome") = txtNome