prima di inserire i dati nel db, prendi l'ultimo id inserito nel db e lo assegni uguale a 'last_id', il nuovo id sarà uguale a 'last_id + 1'
una cosa del genere dovrebbe funzionare:

strSql = "SELECT max(id) AS ultimo_id FROM tabella"
set rs = my_Conn.Execute (strSql)
last_id = rs("ultimo_id")
id_nuovo_record = last_id + 1