Erro Recordset com ADO

[hudsonfilipee 0]

Senhores,

 

Boa tarde!

 

Tenho um problema com um recordset que até o momento não consegui resolver.

Estou trabalhando em uma aplicação aqui que realiza consultas em um banco de dados SQL Server e após exporta para o Excel, utilizando um recordset.

 

Pirmeiro abro a conexão:

Cn.Open("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=id;Password=password;Initial Catalog=catalog;Data Source=banco\sql;Connect Timeout=0")

 

Após, realizo a consulta:

Sql = " SELECT * FROM TABELA "

 

Finailizo a consulta abrindo o Recordset:

Rs.Open(Sql, Cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

 

 

O erro se dá nesta linha, no ato da importação para o excel:

If Not Rs.EOF Then

 

O erro que se dá é:

Additional information: Operação não permitida quando o objeto está fechado.

 

 

Já pesquisei em vários sites, todos me trazem a mesma resolução : "O erro se dá por não abrir o recordset para importação", mas o recordset já está aberto conforme mostrei acima. Pelo o que vi, de alguma forma a linha onde abro o recordset está sendo de alguma forma invalidada, mas não sei como.

Vocês poderiam me ajudar? Afinal, várias mentes pensam melhor do que somente uma!

 

Desde já agradeço!

[Criquio 19]

Poste o código completo que fica mais fácil analisar.

[KhaosDoctor 242]

Provavelmente você fecha o objeto em algum lugar antes disso. Tente usar o comando open sozinho em uma linha separada e veja se funciona.