Boa Tarde!

Você enviou seus arquivos e não enviou a senha. Assim... fica difícil.

Bom, abaixo, segue um modelo de conexão com Bando de Dados em Access com senha:

ConnectionString = "Data Source=C:TesteTarefas.mdb;Jet OLEDB:Database Password=#519=15#;"

Foi mal !

senha: 123

Então...eu não queria q o banco ficasse em um local fixo, queria ter a possibilidade de um (ActiveWorkbook.Path & "Senhas.mdb") da mesma forma que está.

att,

Francisco

Ok. Então faça assim:

ConnectionString = "Data Source=" & ActiveWorkbook.Path & "Tarefas.mdb;Jet OLEDB:Database Password=#123456789#;"

Deu ruim...

Senha Inválida

Sempre para em "Frm_Consulta.Show vbModeless"

mais a senha está correta

fcarlosc,

Bom dia!

Suas adaptações continham uma série de inconsistências e por isso demorei um pouco mais a acertar. Acho que agora está OK e abrindo o banco de dados com a senha 123. Veja que, inclusive, inseri alguns dados na base Senhas do Banco de dados que estava vazia.

Inicialmente, eu lhe forneci informações para abrir banco de dados através de ConectionString imaginando que a forma de acesso aos dados era outra. Por isso não deu certo aí nas suas tentativas. Na verdade, o seu acesso a dados é através de DAO e aí as coisas são um pouco diferentes. Só consegui acertar porque o arquivo que você tentou adaptar era meu mesmo.

Bom, feitas essas considerações, segue seus arquivos de volta.

Funcionou, vlw...!!!

Wagner...agora surgiu outro problema, quando fecha o programa e abre novamente, no textbox do Frm_Consulta aparecem duplicados.

Att,

Francisco

fcarlosc,

OK.

Não tinha visto isso. Consertado.