hai impostato "conn"?

inoltre:
sicuro che l'ID sia in formato testo?
SQL1 = "SELECT TOP 1 Id FROM corno WHERE Id < '" & Id & "'"