se alguem tiver uma ideia , muito obrigado porque reinstlar tambem nao deu, muito obrigado

Tente 2 coisas:

 

1) Não sei se o site tirou a barra antes do nome do banco, coloque a barra lá : "|BdImobiliaria.mdb"

 

2) Na string de conexão acho q está faltando uma palavra aí:

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;DATABASE Password = 123456;Data Source =" & sPath

veja se a palavra "database" não está faltando na sua string de conexão mano.

 

falows!

amigos eu fiz assim agora, ghost tentei do jeito que vc falou e deu outro erro agora irmao , da uma olhada

 

Dim sPath As String
'***Abrindo a base de dados
Set cnBd = New ADODB.Connection
cnBd.CursorLocation = adUseClient

sPath = App.path & "|BdImobiliaria.mdb"

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;user id = admin;database password = 123456;Data Source=" & sPath
Screen.MousePointer = 0
Exit Sub

 

 

ae da esse erro aki irmao agora
Could not find installble ISAM

 

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;user id = admin;Jet OLEDB:Database Password = 123456;Data Source=" & sPath

Se não der certo tenta assim:

 

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";user id = admin;Jet OLEDB:Database Password = 123456;"

é verdade irmao , muito obrigado, mas porque tipo pra abrir o banco é uma coisa e pra abrir um tbl é diferente, eu uso o memso codigo pra abrir um formulario e da erro do

Could not find installble ISAM......porque ?

 

Set rspropri = New ADODB.Recordset

Set cnBd = New ADODB.Connection

rspropri.CursorLocation = adUseClient
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;user id =admin;Jet OLEDB;database password = 123456;Data Source=" & App.path & "Bdimobiliaria.MDB;Persist Security Info=false"

abrir um formulário?? Que formulário?

 

O erro persiste ou deu certo?