Var_Campo = Rs("Booleano") If Var_Campo = 0 then Var_Campo = "Si" Else Var_Campo = "No"