DBPath = App.path
If Right$(DBPath, 1) <> "\" Then DBPath = DBPath & "\"
DBPath = DBPath & "xxxx\xxxx.mdb"
 
        With cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = DBPath
            .Properties("Jet OLEDB:Database Password") = "xxxxxxx"
            .CursorLocation = adUseServer
            .Mode = adModeShareDenyNone
            .Open
        End With