codice:
rs.Open "Select * from tua_tabella where id = " & " '" & tua_variabile & "'", cn, adOpenStatic, adLockOptimistic, adCmdText
prova così !