How can I connect to an Access file with a security password through an Excel application? The code below connect to an Access file without a password. If I put a password in the Access file, I can´t connect just putting the user and the password (.Open ArquivoAccess, "user", "password").

Public ConexaoAccess As New ADODB.Connection

Function Func_ConexaoAccess(ArquivoAccess As String) As Boolean

Set ConexaoAccess = New ADODB.Connection

Func_ConexaoAccess = False

With ConexaoAccess
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open ArquivoAccess
End With

Func_ConexaoAccess = True

End Function