strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\cc.mdb")
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "DELETE * FROM carrello WHERE codice_cc = " & codice & " AND quantita= " & qta & " AND n_carrello= " & carrello ""
set objRS = objConn.Execute(strSQL)
objConn.Close