Option Explicit
Private objConnection As New ADODB.Connection
 
Public Function OpenConnection(blnProgressBar As Boolean) As Boolean
    On Error GoTo ErrorHandler
    OpenConnection = False
 
    With objConnection
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
 
        strDatabase = App.Path + "\" + App.EXEName + ".accdb"
 
        strProvider = "Microsoft.ACE.OLEDB.12.0"       
        .Provider = strProvider       
        .Properties("Data Source") = strDatabase
 
         strDatabasePassword = "....."       
         .Properties("Jet OLEDB:Database Password") = strDatabasePassword
        .Open
 
    End With    
 
    OpenConnection = True
    Exit Function
 
ErrorHandler:
End Function