sim ta desse jeito mesmo , ele ta chegando no select do form load e dando todas akelas mensagens de erro

 

up

Hummmmm.... vamos passo-a-passo com umas considerações:

 

1) Preferencialmente TODAS as conexões que vc fizer aos bancos de dados faça em um único lugar e uma vez somente. Geralmente coloca-se na Procedure "Sub Main" a qual inicia o formulário Principal Também. Para o seu sistema iniciar pela "sub main" vá no menu "Project...Properties..." no startup coloque "Sub Main".

 

O código na "Sub Main" ficaria assim:

 

'no módulo principal: mPrincipal.BAS

Global cnBd as ADODB.COnnection

Sub Main()

 Set cnBd = New ADODB.Connection
 cnBd.CursorLocation = adUseClient
 cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:|meu_banco.mdb;Jet OLEDB:Database Password=123456"
 form_principal.show

End Sub

2) Tendo a conexão aberta abre-se os recordsets

 

'No formulário

'Declarations

 

Dim rspropri as ADODB.Recordset

 

Private Sub Form_Load()

 Set rspropri = new ADODB.Recordset
 rspropri.Open "Select * FROM Tbl_Proprietarios order by Codigo", cnBd

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

Blz?? Recomendo tentar EXATAMENTE como está acima. Creio q não tem como dar errado ok? Só substitua o pipe ("|") pela barra para identificar o caminho do arquivo... fiz assim para aparecer o caminho da maneira mais correta possível já q a barra não aparece no post.

 

qq coisa posta aí!

 

at+

sim pode cre irmao , mas desse jeito algusn comandos param de funcionar como o Incluir dados. que uso o Inset Into, a conexao ao abrir o formulario diz que fica fechada, da uma olhada, to tentanado ate sem senha e diz que esta fechada

 

Public Sub ConectarBd()
'On Error GoTo final
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;Data Source=" & sPath
Screen.MousePointer = 0
Exit Sub
final:
MsgBox Err.Description, vbInformation, Err.Number
End Sub

 

 

no Form Menu eu conecto Usando isso no Load

 

ConectarBd

 

 

No Formulario eu coloco isso

 

 

Set rspropri = New ADODB.Recordset

 

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

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

 

 

e diz que CnBd esta fechada

Pra estar fechada ou esta conexão não existe no aspecto global ou vc fechou em algum lugar antes de chegar aí...

è diz que ela esta fechada ou invalida nesse contexto