li inserisco cosi:
If mnunuovo.Caption = "Nuovo" Then
'Attiva la funzione di aggiunta.
Data1.Recordset.AddNew
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
End If
il codice lo ho preso come ho gia detto dal sito di html però visto che non mi funzionava con il database ho fatto con excel!!