سلام
بعد از Else کد زیر رو باید قرار بدین:
A1.Recordset.AddNew