Visual Basic - VERIFICAR SI LA BD ESTA ABIERTA

Hola
Necesito verificar si mi bd esta abierta o no, usando ado, osea si se encuentra cerrada que abra la bd y si esta cerrada la bd que la abra.En sintaxis como sería?
Espero me puedan ayudar porfavor.
Gracias

Lo que puedes verificar es si hay tienes una conexion abierta a la base de datos. En ADO es un objeto de la clase Connection y verificas si esta abierta usando la propiedad State

If oConn.State = adOpenState Then
MsgBox "Connecion Abierta"
End If

Saludos

HOLA
Muchas gracias!!!
y para saber si esta cerrada como seria?

Te vas por el Else o preguntas
If oConn.State <> adStatOpen Then
....

Hola.
Tambien puedes preguntar..
If oConn.State = adStateClosed Then....

Excelente - Gracias