Così:

codice:
Username = (Recordset1.Fields.Item("SommaDicrediti").Value) 

SQL = "DELETE FROM UTENTIISCRITTI where username = '" & Username & "'"