Visual Basic - PROBLEMA AL ACCESAR A BD

Hola
Alguien me puede ayudar porfavor con el sig. problema
Tengo una aplicacion que esta usando una bd hace consultas, inserta etc, pero dentro de esa aplicacion mando llamar un exe que utiliza la misma base de datos, como le puedo hacer para que no me produzca errores, para empezar como detecto si la bd esta abierta con que sintaxis?, como yo uso ado yo trado de verificar así en caso de que este cerrada la bd pues segun yo abro asi de nuevo la bd
If CON Is Nothing Then
With CON
.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "data source=" & pathbase & ";"
.Open
End With
End If
No se si sea correcto el caso que sigo teniendo conflictos, alguien me puede decir porfavor como hacerle para estar cerrando y abriendo una bd en ado eficazmente?de forma que detecte si esta cerrada la bd que se abra y si esta abierta que se cierre seugun lo necesite
De antemano agradecere muchisimo su ayuda.

Hola Perla, prueba a ver si te funciona esto. No sé que bd estás utilizando, pero si es access o ves los datos vinculando las tablas a través de access, entonces cuanto abres la bd se crea un fichero en el mismo directorio en que se encuentra ésta con el mismo nombre y extensión .ldb. Lo que puedes hacer es preguntar por este fichero, si existe la bd está abierta, si no pues está cerrada.
Saludos