check if database have a password

[luca90]

Public Sub APRI_CON()

    Set CON = New ADODB.Connection
    ' APRI CONNESSIONE
    With CON
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open strDBPath
    End With

End Sub

but i need to check, before to open a conn, if the database have a passowrd.

Possible?

similar:

pseudo code

check_passwor_db if false then

Set CON = New ADODB.Connection
' APRI CONNESSIONE
With CON
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With
else
msgbox ("database have passowrd, impossible to continue!")

end if