codice:
sql="query di Update"
conn.Execute sql,esito

Select Case esito
Case 1
'record variato
Case 0
'nessuna variazione
Case else
'guai in vista  :madai!?: 
End Select