Perdon gracias por las intenciones de ayuda pero ya lo resolvi
Código:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Data1.Recordset.MoveLast
Data1.Recordset.Delete
End Sub
tan facil¡¡¡
Aun asi si alguien tiene alguna aportacion o mejor idea se lo agradecere
Saludos¡¡¡