Set rsServer = ConnAccess.Execute(strInsert)
...ma se fai una eliminazione tramite execute(della New ADODB.Connection ) devi passare il comando senza il recordset.(quello che ti ho evidenziato in rosso)... + o - cosi...
codice:
ConnAccess.Execute strInsert
ciao