PASSWORD IN ADO CONN

[sal21]

How to insert password on Database GENERICO.MDB, with "123456"...

Public Sub APRI_CONN()

strDBPath = "C:\DATABASE\GENERICO.MDB"

Set CNN = New ADODB.Connection
With CNN
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With

End Sub

[HansV]

Use code like this:

Code: Select all

Public Sub APRI_CONN()
    strDBPath = "C:\DATABASE\GENERICO.MDB"
    Set CNN = New ADODB.Connection
    CNN.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" &strDBPath & ";" & _
        "Jet OLEDB:Database Password=123456"
    CNN.Open
End Sub