Problema após colocar Password no backend - SEEK em tabelas vinculadas

Caros amigos

Implementei este codigo na minha DB na qual funciona na perfeição

O problema surgiu quando coloquei password no backend

Pergunto? há alguma maneira de dar a volta a questão, pois gostaria de manter o BE protegido

Obrigado desde já a todos

'************ Início do Código ***************
'Este código foi escrito originalmente por Michel Walsh.
'Não deve ser alterado ou distribuído,
'exceto como parte de um aplicativo.
'Use-o livremente em qualquer aplicativo,
'mas deixe este aviso de copyright inalterado.
'
'Código cortesia de
'Michel Walsh

Public Function OpenForSeek(TableName As String) As Recordset
' Assume uma tabela MS-ACCESS
  Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
              (Mid(CurrentDb().TableDefs(TableName).Connect, _
              11), False, False, "").OpenRecordset(TableName, _
              dbOpenTable)
End Function
'************ Code End ***************

Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, ";pwd=password").OpenRecordset(TableName, _
dbOpenTable)

Obrigado Claudio desde já pela a ajuda

mas não resultou continuo a receber o run-time erro 3055 not a valid file name


Public Function AbrirParaSeek(Senhas As String) As DAO.Recordset
Set AbrirParaSeek = DBEngine.Workspaces(0).OpenDatabase(Mid(CurrentDb().TableDefs(Senhas).Connect, 11), False, False, ";pwd=123").OpenRecordset(Senhas, dbOpenTable)
End Function

Testei a ligação com o comando, msgbox CurrentDb().TableDefs(Senhas).Connect

e o resultado parece-me perfeito como se pode ver no attachement

o que é que estou a fazer de errado?

mais uma vez obrigado pela a ajuda

Olá,

O comando OpenDatabase espera somente o caminho e nome do arquivo Access.
Então seu teste deveria exibir o resultado "C:\Users\czvk\Desktop\Ponto\BD.accdb".

Creio que a sua função deve usar 38 no lugar de 11.

avaz, algum avanço aqui? O retorno é sempre importante.

Obs.: título ajustado para condizer com o real problema do tópico.

Bom dia sei que eswse tópico e antigo, mas passei por esse emsmo problema, deposi que coloquei senha no bd
o codigo pasou a dar erro, ai segui a dica do amigo Claudio Más, "Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, ";pwd=password").OpenRecordset(TableName, _
dbOpenTable)"
Depois mudei de 11 para 38 .
Ai o codigo passou a ser aceito , porem dava erro na busca, pis nao sei pq cargas dagua el insistia em em procurar o banco, na pasta "C:\Users\Ney\Downloads\Documents\Banco"
Por mais que eu compactasse e reparesse o banco , refizesse a conexao comas tabelas, nao dava certo o erro peersistia e engraçado qu as tabelas vinculadas abriam normalmente quado ia nas aba tabelas.
no meu caso o caminho correto seria:"C:\SCM\Banco", e nao teve jeito tive de mudar o Bd para a pasta ""C:\Users\Ney\Downloads\Documents\Banco"
pois aj estava perdendo muito tempo com isso.
Se alguem souber como fazer o bendito código recoinhecer o banco onde ele estava originalmente eu agradeço.
e o estranho foi que isso aconteceu depois de por senha no bd, pis antes quando nao tinah senha ele abria normalmente..
Att

Ney Santos