Tabela Aberta Ou Fechada?

[KeitaroSan]

Estou trabalhando em um projeto em VB e preciso saber de uma coisa bem simples, com base nesse codigo:

 Dim Sql_Query As String
  Dim cnADO As ADODB.Connection
  Dim rsADO As ADODB.Recordset

  Set cnADO = New ADODB.Connection
  Set rsADO = New ADODB.Recordset
       
  cnADO.Provider = "Microsoft.Jet.OLEDB.4.0"
  cnADO.Open App.Path + "\arquivo.mdb"
  cnADO.CursorLocation = adUseClient
    
  Set rsADO.ActiveConnection = cnADO
  rsADO.CursorLocation = adUseClient
  Sql_Query = "SELECT * FROM tabela"
  rsADO.Open Sql_Query, cnADO, , , adCmdText
    
  Set rsADO = Nothing

Qual propriedade do objeto rsADO me diz se ele está aberto ou fechado?

Serah que alguém poderia me ajudar? Ficarei mtu grato... (y) :P

[PiGmEu]

Olá!.. use as seguintes propriedades para saber se uma tabela ou conexao esta abertas..

conexao.state = 1 'a conexao esta aberto
conexao.state = 0 'a conexao esta fechada

tabela.state = 1 'a tabela esta aberto
tabela.state = 0 'a tabela esta fechada

[KeitaroSan]

Poow... valeu mermu cara ^___^

Nom testei ainda, mas depoix vou testah... :lol: