Problema Update + Sql

[01Thunder87]

Ciao,
Effettuo un update di una tabella.
Dopo aver effettuato l'update faccio un Sql.
Update funziona, Sql non mi da errore ma mi restituisce i campi vuoti.
Onestamente non mi pare che vi siano errori.
Avete qualche suggeriemto?
Mostro le 4 righe di codice

'Database  
Set Db = server.createobject("ADODB.Connection") 
Db.open application("ODBC") 
Set Rs = server.createobject("ADODB.Recordset")
update = "UPDATE NomeTabella SET  campoA = 'campo' WHERE  r_id = "& id &" "
Rs.open update,Db 

E questa va subito dopo faccio

Sql = "SELECT * FROM Richieste  WHERE  id = "& id &" "
Rs.open Sql,Db
dato = Rs("campoA")
rs.close 

Ma in dato non mi scrive niente. CampoA è scritto in modo corretto.
Mi potete aiutare?
Grazie