Visual Basic - OBJETO ABIERTO O CERRADO

hOLA TENGO EL SIGUIENTE CODIGO QUE NO ME DA NINGUN PROBLEMA CUANDO EJECUTO EL FORMULARIO UNA VEZ EL PROBLEMA ES CUANDO CIERRO EL FORMULARIO Y LO VUELVO HA ABRIR ME DICE QUE EL OBJETO CNN YA ESTA ABIERTO, YA SE QUE HACIENDO CNN.CLOSE LO PUEDO ABRIR Y CERRAR MULTITUD DE VECES PERO A MI ESO NO ME INTERESA, ALGUIEN ME PODRIA DECIR COMO ES LA INSTRUCCION PARA SABER SI EL OBJETO CNN ESTA ABIERTO

MUCHAS GRACIAS

'mira si base de datos esta presente
If Dir$(App.Path & "\Bases\General.mdb") <> "" Then
'database alredy present so open it
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bases\General.mdb"
'set catalog
cat.ActiveConnection = cnn
'open a recordset
rss.Open "select * from Empresas where marca = '*'", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

Revisa la propiedad State:

If cnn.State = adStateClosed Then
cnn.Open
End If

Si, muchas gracias cecilia