Molto probabilmente hai aperto qualche altra Form (magari con visible=false) che a sua volta tiene una tabella aperta in scrittura....

oppure hai digitato in modo diverso il Recordset
magari invece di "rs" l'ho hai chimato "objRs"...

oppure hai aperto la tabella di database ad esempio in access?

controlla un po' il codice...semmai se non trovi l'inghippo prova a forzare la chiusura di tutte le form

(quindi l'errore non sta qui
Set db = OpenDatabase(App.Path & "\archivio.mdb")

ma sull'apertura della tabella in Scrittura)