Sub PreencherBase()
Dim BD As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim arq As String, CS As String, SQL As String
arq = ThisWorkbook.Path & "\" & "CRTMTJ2.accdb;"
CS = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & arq & "Jet OLEDB:Database Password = 123456;"
BD.Open CS
End Sub
Quando faço o teste se está tudo conforme parece o seguinte erro:
Run-time error '-2147217843 (80040e-4d)'
Esta palavra-passe não é válida
Quando abro a BD a palavra-passe está certa (123456).
A base dados original está na mesma pasta deste projecto
A base dados que estou a criar no Access está criptografada com a senha "123456" e abre em modo exclusivo.
O meu Office: MS Office Professional Plus 2013 e gravo os ficheiros e formato ficheiro Access 2007-2013.
O que está errado?
Desde já obrigado
Dim BD As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim arq As String, CS As String, SQL As String
arq = ThisWorkbook.Path & "\" & "CRTMTJ2.accdb;"
CS = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & arq & "Jet OLEDB:Database Password = 123456;"
BD.Open CS
End Sub
Quando faço o teste se está tudo conforme parece o seguinte erro:
Run-time error '-2147217843 (80040e-4d)'
Esta palavra-passe não é válida
Quando abro a BD a palavra-passe está certa (123456).
A base dados original está na mesma pasta deste projecto
A base dados que estou a criar no Access está criptografada com a senha "123456" e abre em modo exclusivo.
O meu Office: MS Office Professional Plus 2013 e gravo os ficheiros e formato ficheiro Access 2007-2013.
O que está errado?
Desde já obrigado