I would first create a new button, used to save the code, and move the 'save' code to that button. Have the button's visible state initially set to false.
During the 'Add' button's code execution, make the Add button invisible, and the save button visible. And, in the save button code, make IT invisible, and the add button visible. Finally, place the new button so that it's behind the existing 'add' button.
That way, you can keep the logic separate for the two separate tasks.
Next. If, instead of the recordset FIND method, you instead use the recordset Filter property, it can make your code a bit cleaner, IMO.
rs1.Filter = "AccountType = '" & Combo1.Text & "'"
' Now, the recordset only 'contains' records which match your criteria.
' Then, When done,
rs1.Filter = adFilterNone
'restores the recordset.
Try issuing a listbox.refresh immediately after the listbox.clear.
"Lisa, in this house, we obey the laws of thermodynamics!" - Homer Simpson
"I have my standards. They may be low, but I have them!" - Bette Middler
"It's a book about a Spanish guy named Manual. You should read it." - Dilbert