ACCDB dengan Password

Dim strConnection As String
Dim cnn As ADODB.Connection

' strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
' "Data Source=C:\Users\Brendan Reynolds\Documents\test.accdb;" & _
' "Jet OLEDB:Database Password=test"

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

Set cnn = New ADODB.Connection
cnn.ConnectionString = strConnection
cnn.Properties("Jet OLEDB:Database Password") = "test"
cnn.Open

Debug.Print cnn.State = adStateOpen

cnn.Close


Alternatif lain :

Dim cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test Files\DatabasewPassword.accdb;Jet OLEDB:Database Password='currentpassword';Mode=Share Exclusive"

cnn.Execute "ALTER DATABASE PASSWORD newpassword currentpassword"

cnn.Close