sql="select TOP 1 * from Libri Where ID_Autori="&IDAutori&" AND B_Editori=0 ORDER BY D_DATA ASC"
SET RS=OBJdbConnection.Execute(sql)
  IDProssimo=RS("ID")
RS.Close