Set CONN = New ADODB.Connection
            With CONN
                .Provider = "Microsoft Jet 4.0 OLE DB Provider"
                .ConnectionString = "Data Source=" & App.Path & Chr( _
                  PROZEDUREN.BACKSLASH) & "Member.mdb;"
                .Properties("Jet OLEDB: Database Password") = _
                PROZEDUREN.VERNAMCODE("Password", "qwertzuiopasdfghjklyxcvbnm")
                .Open
            End With