inno中数据类型转换

[Code]
function SaveSecureKey(default:string):string;
var
  AccessServer: Variant;
  Re: string;
begin
  try
    AccessServer := CreateOleObject ('ADODB.Connection');
  except
    RaiseException ('Failed to create ADODB object!');
  end;
 
  AccessServer.ConnectionString := Format (
    'Provider=%s;Data Source=%s%s;Persist Security Info=False;' +
    'Jet OLEDB:Database Password=zskjsjkmm', ['Microsoft.Jet.OLEDB.4.0', 'E:\打包区\db\','ConfigureDB.mdb']);
  try
    AccessServer.Open;
    try
      Re:=AccessServer.Execute ('select CStr(value) from sotConfigure99 where csmc="MachineRange"');
提示数据类型无效      Result:=Re; 
    except
      RaiseException ('Failed to initialize secure key value!');
    end;  finally
    AccessServer.Close;
  end;
end;