check if database have a passowrd

[sal21]

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

i can alert the user if the database have a paswword, before open it?

in my case have error in image

[HansV]

You might use an error handler:

Code: Select all

Public Sub APRI_CON()
    Set CON = New ADODB.Connection
    On Error GoTo ErrHandler
    ' APRI CONNESSIONE
    With CON
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open strDBPath
    End With
    Exit Sub
ErrHandler:
    MsgBox "Cannot open the connection!", vbCritical
    Set CON = Nothing
End Sub

[sal21]

You might use an error handler:

Code: Select all

Public Sub APRI_CON()
    Set CON = New ADODB.Connection
    On Error GoTo ErrHandler
    ' APRI CONNESSIONE
    With CON
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open strDBPath <<<<<
    End With
    Exit Sub
ErrHandler:
    MsgBox "Cannot open the connection!", vbCritical
    Set CON = Nothing
End Sub

IN <<<< exactlly the same error in image, and code stop the execution, dont go in ErrHandler:....

[HansV]

Perhaps you could use DAO instead of ADO...

[sal21]

Perhaps you could use DAO instead of ADO...

Ok i test It.