..."select * tabela" If rsContas.State = 1 Then rsContas.Close() rsContas.Open(strSql, conexao, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic) obs: Na primeira vez abre o recordeSet de boa! na Seguda vez ele nao deixa fechar o recordeSet, diz que nao é permitido no contexto atual... ai ai ai viu!!...

...strSql = "select * tabela" If rsContas.State = 1 Then rsContas.Close() rsContas.Open(strSql, conexao, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic) obs: Na primeira vez abre o recordeSet de boa! na Seguda vez ele nao deixa fechar o recordeSet, diz que nao é permitido no contexto atual... ai ai ai viu!! ...

...á entrar em contato com a microsoft e esplicar oque aconteceu para que eles te passem uma nova chave de ativação. O que acontece é que ao ativar o produto pela primeira vez a microsoft coleta informações de hardware de sua maquina e com isso ao tentar ativar novamente não consegue pois não bate a configuração -- Rafael Ziviani ...