Olá!

Tenta assim:

"Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source="MEU CAMINHO";Jet OLEDB:Database Password=MINHA SENHA"

Boa sorte!

Ricardo,
ele da um erro aqui ;Jet OLEDB:Database Password=MINHA SENHA"

esse; que a tando pau!

Faz assim...

Posta seu código aqui, ou se tiver a possibilidade, disponibiliza a plan, que fica mais fácil para a correção.

Abs!

Segue:

Public Sub insert_dados()

Dim connectionString As String
connectionString = ThisWorkbook.Path & "/database1.mdb"
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset

sql = "INSERT INTO Feedback ( Usuario,Agente,Data,Tipo,Feedback) VALUES( '" & UserForm1.txt_user.Value & "','" & UserForm1.CB_AGENTE.Value & "','" & UserForm1.CB_TIPO.Value & "','" & UserForm1.txt_data.Value & "','" & UserForm1.TXT_FEEDBACK.Value & "')"

' Cria o objeto Connection.
Set conn = New ADODB.Connection
With conn
' Define o provedor OleDB para a conexão.
.Provider = "Microsoft.JET.OLEDB.4.0"
' Abre uma conexão com o Northwind.mdb.
.Open connectionString '
End With

Set rst = New ADODB.Recordset
With rst

.ActiveConnection = conn

.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
End With

Set rst = Nothing

conn.Close

End Sub

Public conn As New ADODB.Connection
Public Tabela1 As New ADODB.Recordset

'Coloque este dentro de sua Sub

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "BDSdatabase1.mdb;Jet OLEDB:Database Password=123"

conn.ConnectionString = Conexao
conn.Open
conn.CursorLocation = adUseClient
Tabela1.Open "SELECT * FROM Tabela1", conn, adOpenKeyset, adLockOptimistic

Qq coisa, poste sua plan aqui, ok?

Abs!

Segue um formulário com uma consulta em um .mdb tudo em anexo.
senha 123

Quando eu teriro a senha consigo consulta, agora com a senha da erro de senha incorreta,

se vc conseguir posta ae pra mim

valeu

Olá!

Agora está funcionando legal.

Deixei a correção como comentário (') prar vc ver onde estava o erro.

Abração!!!

Aeeee agora simmmmm!!
Valeuu vai salva minha vida isso..!!

Buenas ricardo.

Estou tentando adaptar o código:

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "BDSdatabase1.mdb;Jet OLEDB:Database Password=123"

Ao meu projeto, mas sem sucesso.

Anexo o meu projeto.

Se puder dar uma ajuda gradeço.
Senha do MDB é 123

Abraços

Olá!

Agora está funcionando legal.

Deixei a correção como comentário (') prar vc ver onde estava o erro.

Abração!!!

Tentei baixar o arquivo mas está com erro!

Teria como disponibilizar para que eu possa ver onde colocou a observação.

Agradeço.

Abraços

Olá!

Agora está funcionando legal.

Deixei a correção como comentário (') prar vc ver onde estava o erro.

Abração!!!