Gemme i access

Jeg har nu fortvivlet prøvet at gemme nogle oplysninger i en Acces-database, men resultatet er, at den sidste post jeg gemmer er dobbelt i basen. Er der nogen som har et godt råd ? Min kode ser ud som
følger:

Private Sub cmdGem_Click()
Dim b As String
    b = txtAftale.Text
    Data1.Recordset.AddNew
    Data1.Recordset(\"dato\") = dato
    Data1.Recordset(\"tid\") = tid
    Data1.Recordset(\"aftale\") = b
    Data1.Recordset.Update
    lblAntal.Caption = antal_aftaler
End sub

Antal_aftaler er et funktionskald som virker OK. EOF Caption i Data1 er sat til AddNew

På forhånd tak
Per