パスワードで保護されたファイルを接続する

Question

パスワードで保護されたアクセスで接続したい下記のコードでパスワード用のパラメータをどこに渡すことができるかアドバイスしてください。

With Acon1 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + ThisWorkbook.Sheets(1).Range("V24").Value 
    .Open 
End With 

With Rs1 
    .CursorLocation = adUseClient 
    .CursorType = adOpenDynamic 
    .LockType = adLockOptimistic 
    .ActiveConnection = Acon1 
    .Source = "Select * from Headcount where [Employee ID]=" & myvalue0l 
    .Open 
End With 

Answer 1

試してみてください。

With Acon1 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + ThisWorkbook.Sheets(1).Range("V24").Value & _ 
";User ID=admin;Password=" 'Password 
    .Open 
End With