Qdo tento abrir este banco me dá erro, o que está errado

Public DB As Database

Public Sub SetPublicVars(DatabaseToOpen As String)
   
    CretaPath = App.Path
    CretaFile = CretaPath + "Teste.mdb" & ";UID=admin;PWD=campeaodevendas"
    Set DB = OpenDatabase(CretaFile) 'Qdo tento abrir este banco me dá erro

End Sub

Amigo ghost_jlp,

 

Como você sugeriu anida pode não funcionar. Expliquemos. Para funcionar como
sugeriu, o arquivo deve está na raiz do 'drive', que é então quando o 'App.Path'
retorna o caminho '\'. O mais seguro de se fazer seria assim:

 

sPath = App.Path & IIf((Right(App.Path, 1) = "\"), "", "\")
sFile = sPath & "arquivo.ext"

 

Dessa forma, não se tem problemas com a localização do arquivo.

 

Se a causa do erro for o seu 'caminho',  fazer como expus acima resolverá.

 

"O êxito consiste em alcançar o que se deseja; a felicidade, em desejar o
que se alcança."

 

Joseph Solvay
Técnico em Informática, programador e futuro filósofo
São Paulo/SP
<jsff77@hotmail.com>

Já tentei!!! A única coisa q vc mudou foi o & q estava +

a barra não apareceu qdo escrevi "|teste.mdb"

no lugar do "|" deveria aparecer uma barra "" ...

 

tente tirar a senha do banco e passe somente o path onde está o banco...