Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Password-Protected Database

Sub Open_WithDbPassword()    Dim conn As ADODB.Connection    Dim strDb As String    On Error GoTo ErrorHandler    strDb = CurrentProject.Path & "\mydb.mdb"    Set conn = New ADODB.Connection    With conn       .Provider = "Microsoft.Jet.OLEDB.4.0;"       .ConnectionString = "Data Source=" & strDb & ";" & _            "Jet OLEDB:Database Password=secret;"       .Open    End With    Debug.Print "Password protected database was opened."    conn.Close    Set conn = Nothing    Debug.Print "Database was closed."    Exit Sub ErrorHandler:    MsgBox Err.Number & ": " & Err.Description End Sub