boa pessoal , eu sei que essa é facil , mas nao to conseguindo acesar um banco com senha , to fazendo dessa forma

 

Dim sPath As String
Set cnBd = New ADODB.Connection
cnBd.CursorLocation = adUseClient
sPath = App.path & "Bdimobiliaria.mdb"
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;Password = 123456;Data Source =" & sPath
Screen.MousePointer = 0
Exit Sub

 

 

mas da erro :

 

Cannot star your application. The workgroup information file is missing or opened exclusively by another user.

 

Alguem sabe oque esta errado ? ja importei as tabelas para um novo banco, e deletei o outro , mas nao muda , sempre da esse erro. muito obrigado pessoal

 

vc consegue abrir o banco diretamente?

Korn, seu banco está baleado, normalmente, houve uma queda de energia, ou vc abriu em modo exclusivo, e saiu do programa sem fechar, tente fazer como o Ghost disse, em algumas vezes, não vai conseguir, voce terá que procurar na pasta do BD um arquivo com o nome do BD e a extensão .LDB, apague, depois abra direto em modo exclusivo e faça reparação, isto deduzindo que seja Access.

 

vlu//

Amigos, abrir diretamente eu consigo, montei outro banco e tambem nao consegui fazer pra abrir com senha pelo vb, na pasta do banco nao existe nenhum arquivo com a extensao .LDB

 

Caramba, amigo, esta é dose.

 

vlu//

rssss, eu vou reinstalar o office pra ver no que da irmao