¿Como preguntar si un BD Mysql esta abierta?

[LuZbA]

hola de nuevo... espero me puedan contestar

miren esta es mi conexion a mysql:

Set DB = New Connection

DB.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
"Server=192.168.1.245;" & "Port=3306;" & "Database=bitacora;" & _
"User=" & txtUsuario & ";" & "Password=" & txtPassword & ";" & _
"Option=3;"

DB.CursorLocation = adUseClient
DB.Open
........

Exit Sub

Ver:
MsgBox "No corresponde usuario o contraseña", vbCritical, "Acceso Denegado"
'"Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear

lo que quiero saber es como pongo una instruccion para saber si esta o no abierta la base de datos...

mi cuestion es por que cuando ingreso mal un usuario o password me manda Ver: pero tambien me ejecuta las instrucciones que van donde estan (........) y obvio q si esta mal la conexion o no se establece no quiero que haga esas instrucciones... cabe aclarar que estas instrucciones las tengo en un boton para ingresar al sistema...

de antemano gracias... espero me puedan contestar

[Avellaneda]

Hola,

Elimina la linea Err.Clear de la etiqueta Ver: y al aceptar, saldrá del procedimiento.

Para saber si la conexión está abierta o cerrada:

Código:

If DB.State = 1 Then
    MsgBox "Conexión abierta"
Else
    MsgBox "Conexión cerrada"
End If

Un saludo.

[LuZbA]

Hola buen día Avellaneda... muchas gracias lo voy a poner en funcionamiento... un saludo