codice:
Set CON = New Connection
CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path
         & "\Settings.mdb"
    
SQL = "DELETE * FROM a"
CON.Execute SQL
        
strSQL = "INSERT INTO a(Elemento,Key) VALUES('BNL','rootBNL')"
CON.Execute strSQL [/QUOTE]
prova a togliere gli spazi tra a ( e VALUES (