tipo esse exemplo qu tu mostrou era pra conectar um programa ao um
banco acess que tem senha , agora deu certo , firmeza , mas dentro do meu programa eu tnho um formulario que ao entrar faz a conexao com a tabela tipo

 

menu e no menu tem um botao nesse botao
Form1.show

e ao entrar nesse form, dentro do form load tem uma conexao assim

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"

rspropri.Open "Select Codigo,* FROM Tbl_Proprietarios order by Codigo", cnBd, adOpenKeyset, adLockOptimistic

Set txtcodauto.DataSource = rspropri
txtcodauto.DataField = "CodigoAuto"
Set txtcod.DataSource = rspropri
txtcod.DataField = "Codigo"

 

 

mas ae da erro de Could not find installble ISAM

Se for EXATAMENTE este o código que passou tem um ";" intruso entre o Jet OLEDB e o "Database Passoword"....

 

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;user id =admin;Jet OLEDB;database password = 123456;

 

Troca pelo ":"

 

cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;user id =admin;Jet OLEDB:Database password = 123456;

 

Tenta aí...

sim´é esse codigo memso , mas ae da erro primeiro aparece

 

Not valied password

 

depois

 

O item nao pode ser encontrado na coleçao correspondente ao nome ou ao ordinal solicitado.

 

 

depois

 

Operacao nao permitida quando o objeto esa fechado!

 

 

Vc citou 3 erros... qdo acontecem esses erros? O q vc mudou?

pois é da tres erros em sequencia , eu so tirei isso

 

Set rspropri = New ADODB.Recordset

Set cnBd = New ADODB.Connection

rspropri.CursorLocation = adUseClient
'FAZENDO A CONEXÃO COM O BANCO DE DADOS
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "Bdimobiliaria.MDB;Persist Security Info=false"

 

rspropri.Open "Select Codigo,* FROM Tbl_Proprietarios order by Codigo", cnBd, adOpenKeyset, adLockOptimistic

Set txtcodauto.DataSource = rspropri
txtcodauto.DataField = "CodigoAuto"
Set txtcod.DataSource = rspropri
txtcod.DataField = "Codigo"

 

e coloquei isso

 

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"
rspropri.Open "Select Codigo,* FROM Tbl_Proprietarios order by Codigo", cnBd, adOpenKeyset, adLockOptimistic

Set txtcodauto.DataSource = rspropri
txtcodauto.DataField = "CodigoAuto"
Set txtcod.DataSource = rspropri
txtcod.DataField = "Codigo"

Coloca do mesmo jeito q está esta dica:

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=38&Classificacao=

 

falows!