problema con tabella vuota

[Fantamanster]

ciao a tutti...

l'insert into mi da errore se la tabella records è vuota perchè new_id non conterrà nulla...

'calcolo ultimo ID tabella
set Id = Server.createObject("ADODB.Recordset")
sql = "SELECT Max(id) AS max_id FROM records"
set Id = Cn.Execute(sql)
	
new_id=Id.Fields("max_id")+1 'primo id libero
	
sql = "INSERT INTO records (id, presente) VALUES ("&new_id&", true)"
Cn.Execute(sql)

qualcuno puo' aiutarmi? come posso risolvere la cosa?
Grazie, Ciao!

[optime]

controlla .eof come si fa di solito