perchè per aggiungere un nuovo campo ad un record prima devi aggiungere una riga intera... cioè:

Data1.Recordset.AddNew
Data1.Recordset("Anagrafico_clienti")=valore