Ciao, ma prima di questa
codice:
Set rs1 = db.OpenRecordset("SELECT CODICE FROM ARCHIVIO1 WHERE CODICE = '" & Trim(text10.Text) & "';")
hai messo questa?
codice:
Set db = OpenDatabase(App.Path & "\archivio.mdb")