Dim bancodedados As Database
Dim TbConvenio As Recordset

 

Private Sub Form_Load()
caminho = "C:lbaselcsoft.mdb"

   Set bancodedados = OpenDatabase(caminho)
   Set Tbtabelas = bancodedados.OpenRecordset("tabelas ", dbOpenTable)

 

usando o recordset eu naum sei verificar se está aberta ou naum....

E infelizmente eu naum posso mudar... estou apenas fazendo manutenção... existe um metodo como o stade?

If rst.State = adStateOpen then...

 

vc deve utilizar Editmode para checar se esta aberto ou não. Mas faça o seguinte,

if Tbtabelas.RecorCount > 0  then.....

Isso me garante q tabela esta aberta e existem registros....

if not tabela is nothing then 'se a tabela é alguma coisa, então está aberta

 ...

end if