private ultimo_id as double

private sub controllaID(byval nomecampo as string, byval nometabella as string)
dim sql as string
sql="SELECT " & nomecampo & " FROM " & nometabella & " ORDER BY " & nomecampo & " DESC LIMIT 0,1"

'utilizzi le giuste istruzioni in base al tuo database server, ed all'oggetto che usi di solito per fare le query

if rs[nomecampo]<>ultimo_id then
    'il valore è cambiato
    ultimo_id=rs[nomecampo]
    funzione_di_avviso_utente_che_è_cambiato_il_contenuto()
else
    'il contenuto non è cambiato...
end if

end sub